Напишите программу, которая запрашивает одно целое число-номер месяца, и определяет...

Question

Напишите программу, которая запрашивает одно целое число-номер месяца, и определяет количество дней в этом месяце. При вводе неверного месяца должно быть выведено сообщение об ошибке.

Answer 1

Var a,b,c,d,e:real;
begin
b := 30;
c := 31;
d := 29;
e := 28;
writeln('От 1 до 12');
readln(a);
if a = 1 then writeln(c);
if a = 2 then writeln(d,' или ',e);
if a = 3 then writeln(c);
if a = 4 then writeln(b);
if a = 5 then writeln(c);
if a = 6 then writeln(b);
if a = 7 then writeln(c);
if a = 8 then writeln(c);
if a = 9 then writeln(b);
if a = 10 then writeln(c);
if a = 11 then writeln(b);
if a = 12 then writeln(c);
else writeln('Неправильно');
end.

Comments

"Встречено 'else', а ожидался оператор", так что прогорамма не рабочая

---

секунду

---

просто убери последнюю строку с else

---

а как сделать так, что бы условие "При вводе неверного месяца должно быть выведено сообщение об ошибке." выполнялось?

---

незнаю

---

но у меня так

---

ты еще тут?

---

там точку с запятой надо убрать