Komplexa tal

Skriv ett program som läser in två komplexa tal enligt 2 + 3i. Summera dessa och skriv ut, använd underprogram
ex:
Mata in två komplexa tal 2 + 3i 2 - 1i
Summan blev 4 + 2i
Post: Representerar olika typer av data
Re = reella
Im = imaginära
Complex_Type är en record, = en post
------------------------
with Ada.Text_IO; use Ada.TexT_IO;

procedure Komplexa_Tal is;
     type Complex_Type is
          record
             Re: Integer;
             Im: Integer;

          end record;

---

procedure Get(Talet: out Complex_Type) is

C: Character

begin
Get(Talet.araccRe);
Get(Talet.Im);
Get(C);

     A,B: Complex_Type;
     Sum: Complex_Type;

begin
Put("Mata in två komplexa tal ");
Get(A);
Get(B);
Sum:= A+B;
Put("Summan blev: ");
Put(Sum);

end Komplexa_Tal;