program mnogochleni;

uses crt,mnog;

var
i,sn,rn:integer;
y:real;
g,f,r,r1,r2:mnogochlen;
choice:char;
rezult:boolean;

begin
while true do
      begin
      clrscr;
      writeln('1 Задача 1: НОД 2х многочленов.');
      writeln('2 Задача 2: P^s(x)-Q^r(x)');
      writeln('3 Деление многочленов с остатком.');
      writeln('0 Выход');
      choice:=readkey;
      case choice of
      '1':
      begin
      clearMnog(f);clearMnog(g);clearMnog(r);
      writeln('Введите больший многочлен P(x):');
      readMnog(f);
      writeln('Введите меньший многочлен Q(x):');
      readMnog(g);

      NODMnog(f,g,r);
      writeMnog(r);

      readln(choice);
      end;
      '2':
      begin
      clearMnog(f);clearMnog(g);clearMnog(r);
      writeln('Введите P(x):');
      readMnog(f);
      writeln('Введите Q(x):');
      readMnog(g);
      Writeln('Введите s:');read(sn);
      Writeln('Введите r:');read(rn);
      Write('(');writeMnog(f);write(')^',sn,' - ');
      Write('(');writeMnog(g);write(')^',rn);
      powerMnog(f,sn);
      powerMnog(g,rn);
      remMnog(f,g,r);writeln;
      writeln('Ответ:');
      writeMnog(r);
      readln(choice);
      end;
      '3':
      begin
      clearMnog(f);clearMnog(g);clearMnog(r);clearMnog(r1);
      writeln('Введите P(x):');
      readMnog(f);
      writeln('Введите Q(x):');
      readMnog(g);
      divMnog(f,g,r,r1);
      writeln('Ответ:');writeMnog(r);
      writeln;
      writeln('Остаток:');writeMnog(r1);
      writeln;
      readln(choice);
      end;
      '4':
      begin
      readMnog(r);
      writeMnog(r);
      readln(choice);
      end;
      '0': break;
      end;
      end;
end.