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

Question

Ребята, помогите. Дам 30 баллов за помощь. Помогите найти ошибку в коде на паскалеУсловие: По введенному с клавиатуры номеру времени года вывести на экран его название(1-зима, 2-весна, 3- лето, 4-осень)Код, который я написалVar n: integer;Begin ;Readln (n)Case n of1,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.

Comments

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

---

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

---

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

---

Пожалуйста