скажите что не так в 8-й строчке " Нет перегруженной подпрограммы с таким количеством параметров max"
var a, b, c, d, e, f: integer;
function max (x, y: integer): integer;
begin
if x>y then max:=x else max:=y;
end;
begin
readln (a, b, c, d, e);
f:= max(max(a, b), max(c, d),e);
writeln ('f=', f);
end.

я делала по книге

что тут не так

Так нельзя, комментарий может относиться только в вопросу или ответу, а это посторонний текст. Вы нарушаете Правила, хотите с модераторами поссориться?

нет

В личку...

Надо записатьf:= max(max(max(a, b), max(c, d)),e);