program bai_giai; uses crt; var a,b,c,d,min:integer; function gtnn(x,y:integer):integer; begin if x>y then gtnn:=y else gtnn:=x; end; BEGIN clrscr; readln(a,b,c,d); min:=gtnn(a,b); min:=gtnn(min,c); min:=gtnn(min,d); write(min); readln; end.
uses crt; var a,b,c,d:longint; function min(a,b:longint):longint; begin min:=a; if a>b then min:=b; end; begin clrscr; write('Nhap 4 so: ');readln(a,b,c,d); writeln('Gia tri nho nhat: ',min(a,min(b,min(c,d)))); readln end.
