Viết chương trình yêu cầu người dùng nhập 1 số ko lớn hơn 5 từ bàn phím chương trình sẽ kiểm tra tính hợp lệ , nếu ko hợp lệ sẽ thông bạo lỗi

2 câu trả lời

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.