program bai1;
var a,b,c:longint;
begin
write('Nhap so a= ');readln(a);
write('Nhap so b= ');readln(b);
write('Nhap so c= ');readln(c);
min:=a;
if min>b then min:=b
else if min>c then min:=c;
writeln('So nho nhat la ',min);
readln
end.
viết chương trình tìm số nhỏ nhất trong 3 số nguyên a, b, c.