Дана программа ее надо изменить так чтобы с ее помощью можно было найти разность максимального и минимального из четырех чисел
Программа
Program n_7;
var a,b,c,d:integer;
function max (x,y;integer):integer;
begin
if x>y then max:=x else max:=y;
end;
begin
readln (a,b,c,d);
f:=max(max(a,b),max(c,d));
writeln ('f='f);
end.