uses crt;
Var
x,y,z,min1,min2: integer;
function min(a,b:integer): integer;
begin
if a<b then min:=a
else min:=b;
end;
begin
clrscr;
write('x = ');
readln(x);
write('y = ');
readln(y);
write('z = ');
readln(z);
min1:=min(x,y);
min2:=min(min1, z);
writeln('MIN = ',min2);
ReadLn;
End.