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

Формулировка задачи:

даны 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.

Решение задачи: «Даны m и n, m-числитель, n-знаменатель. Сократить дробь»

Листинг программы

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.

Объяснение кода листинга программы

Список действий в коде:

Ввод значения m и n с помощью функции readln.
Вычисление сокращенной дроби с помощью функции nod, которая принимает два целых числа и возвращает их наибольший общий делитель (НОД).
Деление числителя и знаменателя на их НОД с помощью функции trunc.
Вывод сокращенной дроби на экран с помощью функции writeln.
Завершение программы.