Ответы и объяснения

2014-01-14T20:09:52+00:00
Извини успел только 4
Program random_;
uses crt;
 Label metka;
varmonth:shortint;
beginmetka:writeln('Введите номер месяца: ');
readln(month);
case month of
1,3,5,7,8,10,12:writeln('В этом месяце 31 день');
2:writeln('В этом месяце 28 дней');
4,6,9,11:writeln('В этом месяце 30 дней');
else writeln('Номер месяца указан неверно. Попробуйте еще раз.');
goto metka;
end;
end.