Блок-схема

program zadanie3;
type monomial = record
        degree, k : integer;
end;
type polynom = array[0..100] of monomial;
var pol, new : polynom;
    pol_n, new_n, i, maxdegree : integer;
begin
write ('Введите количество одночленов многочлена: ');
read (pol_n);
maxdegree := 0;
        for i:=1 to pol_n do
        begin
                write ('Введите одночлен и его степень ', i, ': ');
                read (pol[i].k, pol[i].degree);
                if pol[i].degree > maxdegree then
                        maxdegree := pol[i].degree;
        end;
        new_n := maxdegree;
        for i:=0 to maxdegree do
                new[i].degree := i;
        for i:=1 to pol_n do
                inc(new [pol[i].degree].k, pol[i].k);
        write ('Новый многочлен: ');
        write ('(', new[new_n].k, ')*x^', new[new_n].degree);
        for i:=new_n-1 downto 1 do
                if new[i].k > 0 then
                        write ('+(', new[i].k, ')*x^', new[i].degree);
        writeln;
end.