MODULE PolSuma;
(* Napisati program koji ucitava broj k (1 <= k <= 50) i k polinoma, a nakon toga izracunava njihovu sumu *)

FROM PolinomL IMPORT Polinom, Anuliraj, DisposePolinom,
              Unos, Stampaj, SaberiNa;
FROM InOut IMPORT WriteLn, WriteString, ReadCard, WriteCard;
CONST
  maxk = 50;
TYPE
  nizPol = ARRAY [1..maxk] OF Polinom;
VAR
  i, k: CARDINAL;
  suma : Polinom;
  p : nizPol;
BEGIN
  REPEAT
    WriteString('Unesite broj k (1 <= k <= ');
    WriteCard(maxk, 1);
    WriteString(') ');
    ReadCard(k);
    WriteLn;
  UNTIL (1 <= k) AND (k <= maxk);
  FOR i := 1 TO k DO
    WriteLn;
    WriteString('Unos ');
    WriteCard(i, 1);
    WriteString('. polinoma.');
    WriteLn;
    Unos(p[i])
  END;
  Anuliraj(suma);
  FOR i := 1 TO k DO
    SaberiNa(p[i], suma)
  END;
  WriteLn;
  WriteString('Njihova suma je:');
  WriteLn;
  Stampaj(suma, 4);
  DisposePolinom(suma);
  FOR i := 1 TO k DO
    DisposePolinom(p[i]);
  END;
END PolSuma.