Developing.ru

Помогите написать программу, содержащую процедуру вычисления суммы двух целых чисел. Преобразовать эту программу в модуль и написать вторую программу для вычисления суммы двух целых чисел, использующую процедуру, содержащуюся в этом модуле.

unit sumunit;
interface
procedure getsum(a,b:integer;var res:integer);
implementation
procedure getsum(a,b:integer;var res:integer);
begin res:=a+b; end
end;
end.

program a1;
uses sumunit;
var x:integer;
begin
getsum(2,3,x);
end;

Хыиуду, недавно работал над модулями и сделал такой прикол: в теле модуля выполнаются все действия, а в программе достаточно вызвать только сам модуль
программа имела 3 строки:

uses MyArray;
begin
end;

данная программа выполняла создание массива, сортировку, и поиск по елементу.
а самое смешное никто не мог понять как это работает ))), программа ведь пустая!

Есть такой прикол. А можно еще написать отдельную программу, а в модуле сделать вызов готового экзешника. Извратиться много можно как.
Но человеку требовалось использовать процедуру, содержащуюся в этом модуле. Хотя в твоем случае тоже же используется процедура из модуля