несократимая дробь

[druger]

Помогите составить прогу на паскале: дробь в виде m/n (m,n натуральные числа) сократить до несократимой дроби

[NetSpace]

var: m,n:Integer;
begin
   n:=350;
   m:=239;//просто так взял
   for i:=1 to n do
   begin
      if(n mod i=0)and(m mod i=0)then//если их обоих можно сократить на какое-то число i,
      begin
         n:=n/i;//то сокращаем
         m:=m/i;
      end;
   end;
   WriteLn('n=',n);
   WriteLn('m=',m);
end;

остальное сам доработаешь

[gaw4]

алгоритм не совсем правильный
32/48 --- ?

[gaw4]

а если так ?

uses crt;
var m,n,n1,i:integer;
begin
clrscr;
   n:=48;
   m:=32;
n1:=n div 2;
   for i:=2 to n1 do

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

   WriteLn('n=',n);
   WriteLn('m=',m);
   readln;

end.

[Вадим Мошев]

Описываю алгоритм словами.
1. Найти МИНИМУМ(ЧИСЛИТЕЛЬ_ДРОБИ, ЗНАМЕНАТЕЛЬ_ДРОБИ)
2. Начиная с найденного, минимума двигаться до единицы, при этом проверяя, делятся ли числитель и знаменатель ОДНОВРЕМЕННО на то число, которое мы двигаем до единицы, и, если делится, то получить частные от деления числителя и знаменателя на это число и выйти из цикла.

[gaw4]

да, спасибо Вадим Мошев,
в коде выше тоже ошибка
еще одна попытка
/почему так, просто хотел вывести промежуточные значения/

uses crt;
var m,n,i:integer;
begin
clrscr;
   n:=48;m:=16;
   for i:=2 to n do
      if(n mod i=0)and(m mod i=0)then
      begin
         n:=n div i;
         m:=m div i;
            Writeln('n=',n,'    m=',m);
         i:=1;
      end;
   readln;
end.

[druger]

всем спасибо