1.

Даны два

натуральных числа M и N - числитель и знаменатель дроби M/N.

Требуется сократить дробь, насколько это возможно.

Var n, m, q, i:integer; f:boolean;

begin

read (m, n);

f:=true;

while f=true do begin

f:=false;

if m>n then q:=n else q:=m;

for i:=2 to q do begin

if (m mod i = 0) and (n mod i = 0) then begin m:=m div i; n:=n div i; f:=true; end;

end;

end;

writeln (m,'/', n);

end.

По идее так, не проверял.