program Project1; function min(x1,x2: real): real; {Функция возвращает минимальное значение из двух сравниваемых} begin if x1 < x2 then min:= x1 else min:= x2; end; var a,b,c,d: real; {Переменные для хранения значений аргументов} h1,h2: real; {Промежуточные переменные для хранения результатов вычислений} begin writeln('Введите числа A,B,C,D:'); readln(a,b,c,d); h1:= min(a,b); h2:= min(c,d); writeln('Минимальное значение из четырех чисел: ', min(h1,h2):0:2); Readln; end.