Cộng hai số phức

Viết chưng trình thực hiện phép cộng 2 số phức.
                                                                        Giải

Program TONG_SO_PHUC;
Uses Crt; Type
sophuc= record
   pa,pt:real;
end;
Var a,b,c:sophuc;
Begin
   Clrscr;
   Writeln('TONG HAI SO PHUC');
   Writeln('----------------------------');
   Write('Nhap phan thuc cua so a=');readln(a.pt);
   Write('Nhap phan ao cua so a=');readln(a.pa);
   Write('Nhap phan thuc cua so b=');readln(b.pt);
   Write('Nhap phan ao cua so b=');readln(b.pa);
   c.pt:=a.pt +b.pt;
   c.pa:=a.pa + b.pa;
   Writeln('Tong cua hai so phuc a va b la: ');
   If c.pa<0 then
      Writeln('c=',c.pt:6:2,'-j',abs(c.pa):4:2)
   Else
      Writeln('c=',c.pt:6:2,'+j',c.pa:4:2);
   Readln;
End.