2 câu trả lời
uses math;
function m(a,b,c,d:longint):longint;
begin
exit(min(min(a,b),min(c,d)));
end;
var a,b,c,d:longint;
begin
readln(a,b,c,d);
writeln(m(a,b,c,d));
readln
end.
uses crt;
var a,b,c,d:Longint;
function solve(a,b,c,d:Longint):Longint;
var min:longint;
begin
min:=a;
if b<min then min:=b;
if c<min then min:=c;
if d<min then min:=d;
exit(min);
end;
begin
clrscr;
read(a,b,c,d);
writeln(solve(a,b,c,d));
readln; readln;
end.
