Нахождение нод 2-х многочленов по Алгоритму Евклида - Turbo Pascal

Формулировка задачи:

Добрый день. Задали написать программу, нахождения Наибольшего общего делителя 2-х полиномов(многочленов) по Алгоритму Евклида. Может быть у кого-то есть такая программа? Помогите пожалуйста

Решение задачи: «Нахождение нод 2-х многочленов по Алгоритму Евклида»

Листинг программы

label 1,2;
var n,m:integer;
begin
write('Vvedite n=');read(n);write('Vvedite m=');read(m);
1:if n=m then begin writeln(N,' yavlayetsa NOD');goto 2;end;
if n>m then begin n:=n-m;goto 1;end;
if n<m then begin m:=m-n;goto 1;end;
2:readln;readln;readln;end.

Объяснение кода листинга программы

Этот код на Turbo Pascal выполняет следующие действия:

Запрашивает у пользователя ввод двух целых чисел, n и m.
Проверяет, равны ли эти числа. Если да, то выводит сообщение yavlayetsa NOD.
Если n больше m, то вычитает m из n и переходит к шагу 1.
Если n меньше m, то вычитает n из m и переходит к шагу 1.
Выводит три сообщения readln для чтения трех строк.
Конец программы.