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

Мне нужно с помощью function решить

Готово............................

function min(a, b: integer): integer;begin  if a > b then min := b else min := aend;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 -6Z=3