Напишите программу [на Pascal], которая вычисляет минимальное из трёх введённых чисел. Используйте функцию.

function Min3(a,b,c:real):=Min(a,Min(b,c));

begin
  var (x,y,z):=ReadReal3('Введите три числа:');
  Writeln('Минимальное: ',Min3(x,y,z))
end.


Введите три числа: 3.18 -2 5.7
Минимальное: -2