function Min(a,b: integer):integer;
begin
if a<b then
Min:=a
else
Min:=b
end;
var
a,b,c: integer;
ReadLn(a,b,c);
WriteLn(Min(a,Min(b,c)));
ReadLn
end.
function Min(a,b: integer):integer;
begin
if a<b then
Min:=a
else
Min:=b
end;
var
a,b,c: integer;
begin
ReadLn(a,b,c);
WriteLn(Min(a,Min(b,c)));
ReadLn
end.