var m,d:integer;
begin
repeat
write('Введите номер осеннего месяца m=');
readln(m);
until m in [9..11]; //поверка правильности ввода
if m=10 then d:=31
else d:=30;
write('Количество дней=',d)
end.
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.