[Brish]

Здравствуйте)) Помогите, пожалуйста. Не могу понят ошибку в коде:

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
    NOK:real;
    a,b,Na:integer;

    procedure NOD(m,n:integer;var nm:integer);
    begin
    while m<>n do
    if m<>n then
    m:=m-n
    else
    n:=n-m;
    nm:=m;
    end;

begin
readln(a);
readln(b);
  NOK:=(a*b)/NOD(a,b,Na);
  writeln('NOK=',NOK:4);
  readln;

end.

Админ: Пользуемся тегами для оформления кода!

[Error] Project1.dpr(23): Operator not applicable to this operand type

Что не так???