set serveroutput on
-- utilizarea tipului obiect complex (pentru operatii cu numere complexe)
Declare
  c1 Complex := Complex(1,2);
  c2 Complex := Complex(-5,2);
  c Complex;
  r real;
Begin
  dbms_output.enable;
  c:=c1;
  dbms_output.put_line(c.tochar());
  c:=c.Suma(c2);
  dbms_output.put_line(c.tochar());
  c:=c.Diferenta(Complex(3,2));
  dbms_output.put_line(c.tochar());
  c:=c.Cit(c1);
  dbms_output.put_line(c.tochar());
  r:=c.Modul();
  dbms_output.put_line(to_char(r));

End;