Определить правильность даты, введенной с клавиатуры (Паскаль)

[галина01]

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

program p2
var x,y: integer:
Begin write;
case of
1,3,5,7,8,10,12: if (y<1) or (y>31) then;
2: if (y<1) or (y>29) then ;
4,6,9,11:if (y<1) or (y>30) then ;
else
Writeln (Ввудите номер месяца ');
Writeln('дата введена правильно');
1: Write('неправильно введено число');
2: Readin;
end;

tnd. Что не так помогите

[Serge_Bliznykov]

галина01, всё неправильно... Вы либо набирали код руками с какого-то плохо пропечатанного текста, либо криво распознали..

попробуйте разобраться в таком примере:

program p2;
var d,m, daysInMonth: integer;
Begin
  writeLn('Введите дату в виде двух целых чисел(день и месяц): ');
  Readln(d, m);
  if (m<1) or (m>12) then WriteLn('Неверная дата: неверно введен месяц!')
  else begin
     case m of
       1,3,5,7,8,10,12: daysInMonth := 31;
       2: daysInMonth := 28;
     else
       daysInMonth := 30;
     end;
     if (d<1) or (d>daysInMonth) then
        WriteLn('Неверная дата: введено число')
     else
        Writeln('дата введена правильно');
  end;
  ReadLn;
end.