TURBO PASCAL

             Теперь напишем небольшой модуль.  Назовем его IntLib и вста-
        вим в него две простые подпрограммы для целых чисел - процедуру и
        функцию:

           unit IntLib;

           interface
               procedure ISwap(var I,J : integer);
               function IMax(I,J : integer) : integer;
           implementation
           procedure ISwap;
           var
               Temp : integer;

           begin
               Temp := I; I := J; J := Temp
           end;  { конец процедуры ISwap }
           function IMax;
           begin
             if I > J
                 then IMax := I
                 else IMax := J
           end;  { конец функции IMax }
           end.  { конец модуля IntLib }

             Наберите этот модуль,  запишите его в файл INTLIВ.PAS, а за-
        тем скомпилируйте,  задав в качестве целевой платформы защищенный
        режим DOS.  В результате получим код модуля в  файле  INTLIВ.ТРP.
        Перешлем его в каталог модулей (если такой имеется),  или оставив
        в том же каталоге, где находится следующая программа, которая ис-
        пользует модуль IntLib:

             program IntTest;
             uses IntLib;
             var
               A,B  : integer;
             begin
               Write('Введите два целочисленных значения: ');
               Readln(A,B);
               ISwap(A,B);
               Writeln('A = ',A,' B = ',B);
               Writeln('Максимальное значение равно ',IMax(A,B));
             end.  { конец программы IntTest }