Тагды можно сделать так:
Код
uses crt;
const Mes:array[1..12] of String[8]=
('Январь','Февраль','Март','Апрель','Май','Июнь','Июль',
'Август','Сентябрь','Октябрь','Ноябрь','Декабрь');
const Den:array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
var Day,Month,Year:integer;
label 1;
begin
clrscr;
write('Year='); readln(Year);
if ((Year mod 4)=0) and ((Year mod 100)<>0) or ((Year mod 400)=0) then
Den[2]:=29
else
Den[2]:=28;
write(' Month='); read(Month);
if (Month>12) or (Month=0) then begin writeln('Ошибка'); goto 1; end;
write(' Day='); read(Day);
if (Day>Den[Month]) or (Day=0) then begin writeln('Ошибка'); goto 1; end;
writeln(Mes[Month]);
1: readkey;
end.
Врямя года сам напишешь :yes: