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

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

Question

Андрюха

17 октября, 15:36

+2

Ответы (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 вывести на печать минимальное из чиселПомогите прошу!