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

Помогите прошу!

Question

Валентик

25 июля, 04:47

+1

Ответы (1)

Знаете ответ на вопрос?

Никоша · Answer 1

Function Min (a, b : Integer) : Integer;

Begin

If a
end;

Var x, y, z : Integer;

Begin

Readln (x, y, z) ;

Writeln (Min (Min (x, y), z)) ;

end.

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