народ как написать эту задачу с помощью модуля в турбо паскаль а то у меня не выходит
Var
a,b,c,d,e,max:integer;
procedure f(a,b:integer);
begin
if a>b then max:=a else max:=b;
end;
begin
read (a,b,c,d,e);
f(a,b);
f(max,c);
f(max,d);
f(max,e);
writeln('max=',max);
end.