Даны действительные числа х у z вывести на печать минимальное из чисел

Function Min(a,b : Integer) : Integer;
Begin
  If a<b then Min:=a else Min:=b;
end;
Var x,y,z : Integer;
Begin
  Readln(x,y,z);
  Writeln(Min(Min(x,y),z));
end.