деление двух многочленов Опции

[Bard]

Нам наш учитель вчера задал такую задачу...
Вводяться коэффиценты 2 многочленов и требуеться разделить их друг на друга
и вывести коэффиценты получившегося многочлена...
помогите составить кратчайший алгоритм...

[volvo]

Вот прекрасно работающий

Понимаешь, в чем дело... Если меня пытаются уверить в том, что что-то прекрасно и безошибочно работает, у меня... Как бы это сказать помягче... Почему-то возникают сомнения... Смотри:

writeln('Vvedite koeffichienty delitelya: ');
for i:=1 to kol1 do read(ar2[i]);

То есть ты даже не соизволил ЭТО протестировать... А если вот тут

ar3[j]:=ar1[k]/ar2[l];

в знаменателе будет 0, это что, ТОЖЕ будет считаться "безошибочной работой", или что?

Ну, и закончить хочется вопросом: Как ты думаешь, при делении
6x² - 8x на 2x , что должно получиться в результате, и что в остатке? А теперь проверь своей программой...