Найдите значение Z, определив использовав функцию Min.
Z=min(3,x)+min(x,y)-min(y,5)

var  x,y,z:real;

function min(a,b:integer):integer;
begin
if a<b then result:=a else result:=b;
end;

begin
writeln('Введите х и у: ');
readln(x,y);
z:=min(3,x)+min(x,y)-min(y,5);
writeln('z=',z);    
end.

Спасибо большое

Пожалуйста