*Thuật toán:

Bước 1: Khai báo biến số thực x

Bước 2: Nhập vào giá trị của x

Bước 3: So sánh x có bé hơn 5 không, nếu có xuất ra màn hình xâu 'hợp lệ', ngược lại xuất ra màn hình xâu 'Lỗi. Hãy nhập số khác'

*Chương trình:

Program baitap;

Uses crt;

Var x:real;

Begin

Clrscr;

Write('Hay nhap mot so khong lon 5:');

Readln(x);

If x<5 then writeln('Hop le') else writeln('Loi.Hay nhap so khac');

Readln

End.

Thuật toán:

bước 1: x là 1 biến 

bước 2:nhập số thay cho x vì x là đầu vào

bước 3: so sánh nếu x > thì chương trình sẽ báo lỗi

Chương trình:

x = int(input("nhập số x"))
if (x < 5):
    print("chương trình hợp lệ")
else:
    print("chương trình không hợp lệ")