народ как написать эту задачу с помощью модуля в турбо паскаль а то у меня не выходит
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.

1. Пишем модуль с функцией f и помещаем его в файл с именем MyMax.pasunit MyMax;interface  function f(a,b:integer):integer;implementation  function f(a,b:integer):integer;  begin    if a>b then f:=a else f:=b  end;beginend.2. В меню Turbo Pascal (Compile) обеспечиваем установку Distination Disk3. Компилируем модуль (Compile - Compile) и получаем файл MyMax.tpuОн будет записан в директорию, путь к которой указан в опции меню Options - Directories... для TPU-файлов. Убеждаемся, что такой файл там появился.4. В меню Turbo Pascal (Compile) возвращаем установку Distination Memory 5. Окно с MyMax.pas закрываем, больше оно нам не нужно, теперь у нас есть объектный модуль tpu.6. Создаем новый файл для вызова нашего модуля (обращаю внимание на появление в uses требования подключить наш модуль).uses Crt, MyMax;var  a,b,c,d,e,max:integer;begin  ClrScr;  Read (a,b,c,d,e);  max:=f(a,b);  max:=f(max,c);  max:=f(max,d);  max:=f(max,e);  Writeln('max=',max);  ReadKeyend.7. Запускаем на выполнение и убеждаемся, что все работает.8. Замечание. Можно было написать и более коротко:uses Crt,MyMax;var  a,b,c,d,e:integer;begin  ClrScr;  Read (a,b,c,d,e);  Writeln('max=',f(f(f(f(a,b),c),d),e));  ReadKeyend.