Program func4;
Uses crt;
Var a,b,c,d,m1,m2:integer;
Function Min (x,y: integer): integer;
begin
if x<y then
min:=x
else
min:=y;
end;
begin
ClrScr;
Writeln('введите 4 числа');
readln(a,b,c,d);
m1:=min(a,b);
m2:=min(c,d);
m1:= min(m1,m2);
Writeln('минимум=',min);
Readln;
End.