коментарии

program a1;
uses crt;
var
 m2,n2,i: integer;
 m,n: real;
begin
 clrscr;
 write('Vvedite m i n (m<n): ');
 readln(m,n);
 if m>=n then writeln('Oshibka!')
 else
  begin
   i:=2;
   while i<=m do
    begin
    m2:=trunc(m);
    n2:=trunc(n);
     if (m2 mod i=0) and (n2 mod i=0) then
      begin
       n:=n/i;
       m:=m/i;
      end;
     inc(i);
    end;
  end;
 writeln('Sokrashennaya drob:',m:3:0,'/',n:3:0);
readkey;
end.

else
  begin
   i:=2;
   while i<=m do
    begin
    m2:=trunc(m);
    n2:=trunc(n);
     if (m2 mod i=0) and (n2 mod i=0) then  {оператор с условием (m2 mod i=0) and (n2 mod i=0)}
      begin
       n:=n/i;
       m:=m/i;
      end;
     inc(i);
    end;
  end;

else
  begin
   i:=2; //первый делитель для сокращения=2
   while i<=m do //пока он не больше m
    begin
    m2:=trunc(m);//берем целую часть от m
    n2:=trunc(n);//берем целую часть от n
    if (m2 mod i=0) and (n2 mod i=0) then
    {если оба числя делятся нацело на очередной делитель}
      begin
       n:=n/i; {сокращаем их}
       m:=m/i;
      end;
     inc(i);//смотрим следующий делитель
    end;
  end;