Даны натуральные числа a и b, обозначающие соответственно числитель и

знаменатель дроби. Сократить дробь, т. е. найти такие натуральные числа p и q, не

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

общего делителя двух натуральных чисел, используя алгоритм Евклида).

Функции пользователя. Паскаль.

Program n1;

var n, m, d:integer;

function NOD (n, m:integer) : integer;

begin

while nm 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.