Даны действительные числа x, y, z. Вывести их ** экран наименьшее из них

Question

Даны действительные числа x, y, z. Вывести их на экран наименьшее из них

Answer 1

Var
  x,y,z,m:real;
begin
  Write('x,y,z=? '); Read(x,y,z);
  if x  if z  Writeln(m)
end.