коментарии

[Licwin]

у меня есть программа:


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.

помоги написать коментарии к:
Код Pascal1
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;