Даны действительные числа х у z вывести ** печать минимальное из чисел Помогите прошу!

Question

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

Answer 1

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

Comments

спасибо огромное