прога комплексных чисел

uses Cmplx;
var
 chisllo :complex;
 a.re,a.im ,b.re ,b.im :real;

begin

a.re := 1; a.im := 1;

b.re := 1; b.im := 2;

chisllo.create (a.re,b.re, a.im,b.im );

chisllo.vivod;

end.