program GT_nho_nhat;

uses crt;

var a, b, c, min: interger;

begin

clrscr

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;

if min>c then min:=c;

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

readln;

end

program GT_nho_nhat;

uses crt;

var a, b, c, min: interger;

begin

clrscr

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;

if min>c then min:=c;

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

readln;

end

program GT_nho_nhat;

uses crt;

var a, b, c, min: interger;

begin

clrscr

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;

if min>c then min:=c;

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

readln;

end