code bài Tính tổng tất cả các số phức có trong mảng

{Tinh tong 1 day so phuc}
Uses Crt;
Type Complex = Record
a,b:Real; End;
Var c1,c2,tong:Complex; dau:string;
n,i:byte;
mang:array[1..100]of complex;
procedure tongsp(c1,c2:complex;var c3:complex);
begin
c3.a := c1.a + c2.a;
c3.b := c1.b + c2.b;
end;

Begin
clrscr;
write('Nhap spt n=');readln(n);
tong.a:=0;
tong.b:=0;
for i:=1 to n do
begin
Writeln('Nhap so phuc c:',i);
Write('Phan thuc a = '); Readln(c1.a);
Write('Phan ao b = '); Readln(c1.b);
mang[i]:=c1;
writeln('*************');
tongsp(tong,mang[i],tong);
end;

{In ket qua}
Writeln('Tong cua ',n,' so phuc:');
If tong.b>=0 Then dau:='+i' else dau:='-i';
Writeln('Tong = ', tong.a:0:2, dau, abs(tong.b):0:2);
Readln;
end.