Контрольная работа: Виконання символьних операцій з многочленами

for i:=1 to m do vyvid (a[i]);

writeln;

write('Результат');

vyvid(c);

repeat until keypressed;

end;

{*********************пiднесення многочлена до степеня******}

if (menu=3) then begin

clrscr;

riv (zero, c);

writeln ('пiднесення многочлена до степеня');

writeln ('степiнь многочлена ');

read(nb);

vvid (nb, b);

writeln;

write ('До якого степеня пiднести ');

read(m);

mpoli (b, m, c);

clrscr;

writeln ('пiднесення многочлена до степеня');

write('многочлен');

vyvid(b);

writeln;

write ('Пiднесений до степеня ', m:2);

vyvid(c);

repeat until keypressed;

end;

{***************знаходження многочлена вiд многочлена******}

if (menu=4) then