Помощь гимназистке!! =)

[lisa_alisa]

Дан номер месяца(1-январь, 2 - февраль...). Вывести число дней в этом месяце для невисокосного года. (через оператор выбора CASE)

Заранее спасибо)

[maladoy]

program p1;
uses crt;
var i,s :integer;
begin
writeln ('vvedite N month');
readln(i);

case i of
 1: s:=31;
 2: s:=28;
... // здесь проставь остальные месяцы и дни в них
12:s:=31;
 end;
writeln(s);
readln;

end.