Количество дней 12
Какой год

program 123;

uses crt;

var x:integer;

begin  

repeat

write('Введите номер месяца: ');

readln(x);

case x of

writeln('Дней - 31');

writeln('Дней - 28');

writeln('Дней - 31');

writeln('Дней - 30');

writeln('Дней - 31');

writeln('Дней - 30');

writeln('Дней - 31');

writeln('Дней - 31');

writeln('Дней - 30');

writeln('Дней - 31');

writeln('Дней - 30');

writeln('Дней - 31');

end;

until x=13;

readln;

end.

хз, может так