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.

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 năm từ bàn phím, chương trình sẽ kiểm tra tính hợp lý nếu không hợp lệ sẽ thông báo lỗi. Khi đó, chương trình có thể biểu diễn bằng thuật toán sau:  

Bước 1: nhập số a;

Bước 2: nếu a>5 thì thông báo lỗi;

Thể hiện bằng câu lệnh điều kiện dạng thiếu trong Pascal:

readln(a);

if a>5 then write('So da nhap khong hop le!')

cho mik xin ctrl hay nhất