Проблема с типами

[maziLa]

uses crt;

var
   A, B, R, aa, bb: longint;
   NOK, NOD: extended;
Begin
     ClrScr;
     Write('‚ўҐ¤ЁвҐ зЁб«* a,b:');ReadLn(aa,bb);
     A:=aa;B:=bb;R:=A mod B;
     While R<>0 do
     begin
           A:=B;B:=R;
           R:=A mod B;
     end;
     NOD:=B;
     WriteLn('ЌЋ„(a,b)=',NOD:10:0);
     NOK:=(aa*bb)/NOD;
     Write('ЌЋЉ(a,b)=',NOK:10:0);
     ReadLn;
end.

У меня неправильно считает НОК, например при таких числах
163438 и 104006 -- выводит отрицательное число.

[Serge_Bliznykov]

всё правильно. так и и должно быть.
163438 * 104006 = 16 998 532 628
а максимальное число, которое может вместить тип LongInt: 2 147 483 647

Пробему можно обойти, например, так:

...     NOK := aa;
     NOK := NOK*bb/NOD;
     Write('НОК (a,b)=',NOK:12:0);

[maziLa]

Спасиба, теперь всё работает