Program MiN;
var a,b,c,d: real;
 
function minim(a,b,c,d:real):real;
var min: real;
begin
min:=a;
if bthen min:=b;
if cthen min:=c;
if dthen min:=d;
minim:=min;
end;
 
 
begin
writeln ('Wedite koeficient A,B,C,D');
readln (a,b,c,d);
 
writeln('MIN= ',minim(a,b,c,d));
 
readln;
end.