MODULE polinom;
FROM PolinomL IMPORT Polinom, Stampaj, Anuliraj,
              DisposePolinom, PostaviClan, Unos, Saberi;
FROM InOut IMPORT WriteString, WriteLn;

VAR
  p,q,rez : Polinom;

BEGIN
  (* korisnik unosi prvi polinom *)
  WriteString("Unesite polinom:");
  WriteLn;
  Unos(p);
  (* drugi polinom kreiramo mi, 
     monom po monom *)
  Anuliraj(q); (* isto sto i q:=NIL; *)
  (* postavimo clan x^5 *)
  PostaviClan(1.0,5,q);
  (* -3 x^4 *)
  PostaviClan(-3.0,4,q);
  (* 4 x *)
  PostaviClan(4.0,1,q);
  (* 7 (x^0) *)
  PostaviClan(7.0,0,q);
  (* saberemo polinome *)
  Saberi(p, q, rez);
  (* odstampamo rezultat i polinome *)
  WriteString("p: ");
  Stampaj(p,0);
  WriteLn;
  WriteString("q: ");
  Stampaj(q,0);
  WriteLn;
  WriteString("rez: ");
  Stampaj(rez,0);
  WriteLn;
  DisposePolinom(p);
  DisposePolinom(q);
  DisposePolinom(rez);
END polinom.