Даны номер дня и номер месяца текущего года (число – от 1 до 31, месяц – от 1 до 12). Определить правильность даты.

1

Ответы и объяснения

2013-10-02T21:17:08+04:00
Var a,b:integer;
begin
readln(a,b);
if not (a in [1..31]) or not (b in [1..12])  then writeln('NOT CORRECT')
else writeln('CORRECT');
end.