даны m и n, m-числитель, n-знаменатель. Сократить дробь

[StoneGod]

даны m и n, m-числитель, n-знаменатель. Сократить дробь

program dsf;
var m,n:real;
  function nod( a, b: longint): longint;
  begin
  while (a <> 0) and (b <> 0) do
  if a >= b then
  a:= a mod b
  else
  b:= b mod a;
  nod:= a + b;
  end;
begin
writeln('vvedi m and n');
readln(m,n);
m:=m/nod(m,n);
n:=n/nod(m,n);
writeln(m,'/',n);
end.

______________
1) Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Модератор.

[Step_UA]

если функция и правильно находит общий делитель, то нужно ее значение запомнить в переменной и использовать его, т.к. после

m:=m/nod(m,n);

при последующем ее вызове она находит для измененого m и исходного значения n

[StoneGod]

у меня в этой строчке

PHP код:

m:=m/nod(m,n); 


выдает 26 ошибку

[Step_UA]

... в функции входные параметры целого типа, а вы передаете ей вещественного

program dsf;
var m,n,k:longint;
  function nod( a, b: longint): longint;
  begin
  while (a <> 0) and (b <> 0) do
  if a >= b then
  a:= a mod b
  else
  b:= b mod a;
  nod:= a + b;
  end;
begin
writeln('vvedi m and n');
readln(m,n);
k:=nod(m,n);
m:=trunc(m/k);
n:=trunc(n/k);
writeln(m,'/',n);
end.