Ниже приведён перечень терминов. Все они, за исключе­нием одного, характеризуют понятие «экономика». Наука, мораль,

Function min(a, b: integer): integer;
begin
  if a > b then min := b else min := a
end;

var
  x, y: integer;

begin
  Write('Bведите через пробел x и y -> ');
  Readln(x, y);
  Writeln('Z=', min(3, x) + min(x, y) - min(y, 5))
end.

Тестовое решение:
Bведите через пробел x и y -> 4 -6
Z=3

Готово