program nhonhat; uses crt; var a,b,c,min:integer; begin clrscr; write('Nhap so thu 1: '); readln(a); write('Nhap so thu 2: '); readln(b); write('Nhap so thu 3: '); readln(c); min:=a; if b<min then min:=b; if c<min then min:=c; write('So be nhat la: ',min); readln end.
