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

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018// Внимание! Если программа не работает, обновите версию!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

function min(x,y:integer):integer;beginif x<y then min:=x else min:=y;end;var a,b,c:integer;beginreadln(a,b,c);writeln('min = ',min(min(a,b),c));end.Пример:8 2 5min = 2