Question

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

Answer 1

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