Thật toán:

B1: Nhập 5 số nguyên dương lần lượt là a1, a2, a3, a4, a5.

B2: min←a1;

B3: Nếu min>a2 thì min←a2;

B4: Nếu min>a3 thì min←a3;

B5: Nếu min>a4 thì min←a4;

B6: Nếu min>a5 thì min←a5;

B7: Xuất min.

B8: Kết thúc.

Chương trình:

uses crt;
var a1,a2,a3,a4,a5,min:longint;
begin
clrscr;
   write('Nhap 5 so nguyen duong: ');readln(a1,a2,a3,a4,a5);
   min:=a1;
   if min>a2 then min:=a2;
   if min>a3 then min:=a3;
   if min>a4 then min:=a4;
   if min>a5 then min:=a5;
   writeln(min);
readln
end.

Thuật toán:

B1: Nhập $a, b, c, d, e$

B2: ans ← a

B3: b < ans => ans ← b

B4: c < ans => ans ← c

B5: d < ans => ans ← d

B6: e < ans => ans ← e

B7: Xuất ans

Code:

uses crt;
var a, b, c, d, e, ans:word;
begin
clrscr;
    read(a, b, c, d, e);

    // ans is min
    ans:=a;
    if b < ans then ans:=b;
    if c < ans then ans:=c;
    if d < ans then ans:=d;
    if e < ans then ans:=e;

    // print min
    writeln(ans); 
readln; readln;
end.