program Tim_so_nho_nhat;

var x,y,z: longint;

begin

Clrscr;

write('Nhap so x= ');readln(x);

write('Nhap so y= ');readln(y);

write('Nhap so z= ');readln(z);

min:=x;

if min>y then min:=y

else if min>z then min:=z;

writeln('So nho nhat la ',min);

readln;

end.

Thuật toán:

Bước 1: Nhập x, y, z từ bàn phím

Bước 2: min ← x

Bước 3: Nếu y<min thì min ← y

Bước 4: Nếu z<min thì min ← z

Bước 5: Xuất kq là min

Chương trình:

Program BTT;
Uses crt;
Var x,y,z,min: longint;
Begin
        Clrscr;
        Write('Nhap x, y, z: '); Readln(x,y,z);
        min:=x;
        If y<min then min:=y;
        If z<min then min:=z;
        Write('GTNN la: ',min);
        Readln
End.