set serveroutput on
-- utilizarea tipului obiect complex (pentru operatii cu numere complexe)
Declare
  type t is table of Complex;  --colectie de obiecte
  c t := t(); 
  s Complex := Complex(0,0);
  k integer;
Begin
  dbms_output.enable;
  c.extend(10);
  for k in 1..10 loop
    c(k):=Complex(k, sin(k)*k);
    dbms_output.put_line(to_char(k) || ': ' || c(k).tochar());
  end loop;
  for k in 1..10 loop
    s:=s.Suma(c(k));
  end loop;
  dbms_output.put_line('Suma: ' || s.tochar());
End;