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. По идее так, не проверял.