На паскале написать программу сокращения дроби , где N – целое, M – натуральное число. Использовать алгоритм Евклида.

Пишем программу:Pascal ABC.proqram qq;var n,m:integer; a,b:integer;begin read(n,m); a := abs(n); b := m; while a <> b do if a > b then a := a - b else b := b - a; b := m div a; a := n div a; writeln(a,\'/\',b); if a*m = b*n then writeln(\'Correct\')end. Программа написана.