Viết chương trình yêu cầu người dùng nhập một số không lớn hơn 5 từ bàn phím, chương trình

PROGRAM: So_Hop_Le;

Uses crt;

Var a:Integer;

Begin;

      clrscr;

      Write('Nhap so tu nhien khong lon hon 5.'); readln(a);

      If a>5 then;

      Writeln('Khong hop le.')

      Else

      Writeln('Hop le.');

      Readln;

End.