Арифметика. Функции.

[spankyham]

Уважаемые специалисты, прошу помочь решеить следующую задачу:
Даны три числа x, y, z. Вычислить S = min(z, max(y, x)).
[*censored*]

[Naeel Maqsudov]

Код: Выделить всё

function max(x,y:real):real;
begin
  if x>y then  max:=x else max:=y;
end;
function min(x,y:real):real;
begin
  if x<y then  min:=x else min:=y;
end;
var
  x,y,z:real;
begin
  write('введите x, y, z через пробел:');readln(x,y,z);
  writeln('S=',min(z, max(y, x)));
end.

[spankyham]

спасибо =) только мне уже на другом форуме помогли разобраться с этой задачкой, решение сходится )