var a:array[1..10000] of longint;
min,i:longint;
begin
for i:=1 to 4 do
read(a[i]);
min:=maxlongint;
for i:=1 to 4 do
if a[i]<min then min:=a[i];
write(min);
end.
/**************************************************************
	Problem: 1708
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/