Вводим с клавиатуры число,определить какой это месяц и сколько в нем дней (надо сделать в паскале авс)

Var a: integer;
begin
writeln(введите число );
readln(a);
if a=1 then writeln(январь. 31 день);
if a=2 then writeln(февраль. 28 дней (29 в високосном году));
if a=3 then writeln(март. 31 день);
if a=4 then writeln(апрель. 30 дней);
if a=5 then writeln(май. 31 день);
if a=6 then writeln(июнь. 30 дней);
if a=7 then writeln(июль. 31 день);
if a=8 then writeln(август. 31 день);
if a=9 then writeln(сентябрь. 30 дней);
if a=10 then writeln(октябрь. 31 день);
if a=11 then writeln(ноябрь. 30 дней)
if a=12 then writeln(декабрь 31 день)
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.