đây bạn

Hình 1: code

Hình 2: kết quả (test) 

do màn hình của mình hơi nhỏ nên sau dòng cuối cùng của hình 1 bạn thêm:

        readln

End.

giúp mình

Uses Crt;

Type Complex = Record

 a,b:Real;

End;

Var cl .c2.c3:Complex;

dau:string;

Begin

Writeln('Nhap so phuc c1:')

Write('Phan thuc a = '); Readln(cl.a);

Write('Phan ao b = '); Readln(cl.b);

Writeln('Nhap so phuc c2:');

Write('Phan thuc a =');

Readln(c2.a);

Write('Phan ao b = '); Readln(c2.b);

{Tính tổng 2 số phức}

c3.a := c1.a + c2.a;

c3.b := c1.b + c2.b;

{In kết quả ra màn hình}

Writeln('Tong cua 2 so phuc:');

If c1.b>=0 Then dau:='+i' else dau:='-i';

Writeln('c1 = ',c1.a:0:2, dau, abs(c1.b):0:2); {Số phức c1}

If c2.b>=0 Then dau:='+i' else dau:='-i';

Writeln('c2 =',c2.a:0:2, dau, abs(c2.b):0:2); {Số phức c2}

Writeln('La so phuc:'); 

If c3.b>=0 Then dau:='+i' else dau:='-i';

Writeln(c3 = ',c3.a:0:2, dau, abs(c3.b):0:2); {Số phức c3}

ReadIn;

End. 
(Nếu có vài sai sót nhỏ thì mong bạn thông cảm nhé🙏🏻)