Question

Ребята, помогите. Дам 30 баллов за помощь.
Помогите найти ошибку в коде на паскале

Условие: По введенному с клавиатуры номеру времени года вывести на экран его название(1-зима, 2-весна, 3- лето, 4-осень)

Код, который я написал
Var n: integer;
Begin ;
Readln (n)
Case n of
1,2,12 :write ('Зима' ) ;
3,4,5 :write ('Весна') ;
6,7,8 :write ('Лето') ;
9,10,11 :write ('Осень') ;
Else write ('Такого месяца нет') ;
End;
End

Помогите найти ошибку.

Answer 1

Var n: integer;

Begin ;

Readln (n);

Case n of

1,2,12 :write ('Зима' ) ;

3,4,5 :write ('Весна') ;

6,7,8 :write ('Лето') ;

9,10,11 :write ('Осень') ;

Else write ('Такого месяца нет') ;

End;

End.

Answer 2

Извините, так где была ошибка?

Answer 3

Сравните коды. Readln (n); - точка с запятой в конце. И точка после последнего end

Answer 4

Большое спасибо!

Answer 5

Пожалуйста