Program n1;
function min(a,b,c,d: integer): integer;
begin
if (a<b) and (a<c) and (a<d) then
min:=a else if (b<c) and (b<a) and (b<d)
then min:=b else if (c<b) and (c<a) and (c<d)
then min:=c else if (d<a) and (d<c) and (d<b)
then min:=d;
end;
var a,b,c,d: integer;
begin
readln(a,b,c,d);
write(min(a,b,c,d));
end.