Определить, является ли номер дня допустимым для данного месяца. - Pascal

PROGRAM PGR_3;
      USES CRT;
     VAR A, B:INTEGER;
BEGIN
      CLRSCR;
     WRITELN ('VVEDITE A');
     READLN (A);
     WHILE A;777 DO;
      WRITELN ('VVEDITE A, OKONCHIVAUSHEESYA 777');
             READLN (A);
BEGIN
     WRITELN ('VVEDITE B');
             READLN (B);
      IF (B=1)OR
        (null, B=3)OR
         (null, B=5)OR
          (null, B=7)OR
           (null, B=8)OR
            (null, B=10)OR
             (null, B=12)THEN
              (null, A=31)
 
     IF (B=4) OR
        (null, B=6)OR
          (null, B=9)OR
            (null, B=11)THEN
              (null, A=30);
      IF (B=2)THEN
         (null, A=28);
P=1 THEN WRITELN ('PODXODIT');
END;
   READKEY;
END.