Re, Im: Single end;

Procedure Add (x, y: TComplex; var z: TComplex);

Procedure Sub (x, y: TComplex; var z: TComplex);

Procedure Mul (x, y: TComplex; var z: TComplex);

Procedure CDiv(x, y: TComplex; var z: TComplex);

Implementation Procedure Add; External 'Complex' index 1;

Procedure Sub; External 'Complex' index 2;

Procedure Mul; External 'Complex' index 3;

Procedure CDiv; External 'Complex' index 4;

end.

Такой интерфейсный модуль существенно упрощает разработку основной программы:

{$N+,E+} Uses Cmplx;

var

a,b,c: TComplex;

begin

a. Re := 1;

a. Im := 1;

b.Re := 1;

b.Im := 2;

Add(a,b,c) ;

WriteLnCСложение : ', с.Re:3:0, с.Im:4:0,'i');

Sub (a,b,c);

WriteLn('Вычитание: ', с.Re:3:0, с.Im:4:0,'i') ;

Mul(a,b,с);

WriteLn('Умножение: ', с.Re:3:0, с.Im:4:0,'i') ;

CDiv(a,b,с) ;

WriteLn('Деление : ', с.Re:3:1, с.Im:4:1,'i') ;

end.