Помогите пожалуйста
Даны натуральные числа a и b, обозначающие соответственно числитель и знаменатель дроби. Сократите дробь, то есть найдите такие натуральные числа p и q, не имеющие общих натуральных делителей, кроме 1
ПАСКПЛЬ. Пожалуйста, как можно проще

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