посчитайте 1 Очень нужна помощь Напишите процедуру, которая сокращает дробь вида M/N. Числитель и знаменатель дроби передаются как изменяемые параметры. Пример:Введите числитель и знаменатель дроби:25 15После сокращения: 5/3Язык: ПаскальРешить нужно Процедурой (без Функции)

var

x,y,nod:integer;

procedure calcNod(a:integer; b:integer);

begin

while (a > 0) and (b > 0) do begin

if a >= b then a:=a - b

else b:=b - a

end;

nod := a + b;

end;

begin

writeln('Введите числитель и знаменатель дроби: '); readln(x,y);

calcNod(x, y);

x:=x div nod;

y:=y div nod;

if y = 1 then write('После сокращения: ',x)

else write('После сокращения: ',x,'/',y);

end.