ВОПРОС ПО ПАСКАЛЬ

[toross]

Помогите на счет задачи на паскале.

Выводит времЯ года по введеному с клавиатуры числу, выходи при нажатии 0.

[KentPol]

Выводит времЯ года по введеному с клавиатуры числу
Это как?

[slesh]

считываешь дату в формате каомнить типа день/месяц/год
отделяеш месяц от всего что введено вереподишь его в integer и делаешь
case i of
3..5: writeln("весна");
6..8:writeln("лето");
9..11:writeln("осень");
12,1,2:writeln("зима");
end;

[KentPol]

program data;
Uses crt;
var d,m,g:integer;
begin
Clrscr;
m:=1;
while m<>0 do
begin
Write('Дата в формате [день, месяц, год]:');
readln(d,m,g);
case m of
3..5: writeln('весна');
6..8:writeln('лето');
9..11:writeln('осень');
1,2,12:writeln('зима') ;
end;
end;
end.

Проверки валидности нет.
Ехе'шник и исходник тут: _ttp://slil.ru/27661212