Код:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
X,Y,Z:real;
function min(x,y,z:real):real;
begin
If x+y<y+z then
min:=x+y
else
min:=y+z;
End;
begin
WRITE('Vvedite X=');
Readln(X);
WRITE('Vvedite Y=');
Readln(Y);
WRITE('Vvedite Z=');
Readln(Z);
Writeln('min=',;
readln;
End.
Вот моя сырая заготовка, тут прописано не всё задание, писал чтобы разобраться как действует.Если возможно то подправьте мой код.