Даны натуральные числа a и b, обозначающие соответственно числитель и знаменатель дроби. сократить дробь, т. е. найти такие натуральные числа p и q, не имеющие общих делителей, что p/q=a/b. (написать функцию для расчёта наибольшего общего делителя двух натуральных чисел, используя алгоритм евклида). функции пользователя. паскаль.

Program n1;
var n,m,d:integer;
function NOD(n,m:integer):integer;
begin
while n<>m do if m>n then m:=m-n else n:=n-m;
nod:=m;
end;
begin
write('введите числитель: ');
readln(n);
write('введите знаменатель: ');
readln(m);
writeln('введена дробь: ',n,'/',m);
d:=nod(n,m);
n:=n div d;
m:=m div d;
writeln('сокращенная дробь: ',n,'/',m);
end.