Tìm giá trị nhỏ nhất trong 3 số a,b,c nhập từ bàn phím

program timsonhonhattrong3so ;

var a,b,c,min : 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.

uses crt;

var a, b, c, m : integer;

begin

clrscr;

write('Nhap ba so a, b, c : '); readln(a, b, c);

m := c; if a < m then m := a;

if b < m then m := b;

write('So nho nhat = ', m);

readln

end.