составить программу для нахождения наибольшего общего и наименьшего общего кратного двух натуральных чисел НОК(A,B)=A*B/НОД(A,B)

[sisaw]

составить программу для нахождения наибольшего общего и наименьшего общего кратного двух натуральных чисел НОК(A,B)=A*B/НОД(A,B)
(не правильно считает как мне кажется )

var a,b: longint;
function Nod(a,b:integer):integer;
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;
function NOK(a,b:integer):integer;
begin
  NOk:=a*b div NOd(a,b)
  end;
begin
  write('введите a:');
  readln(a);
  write('введите b:');
  readln(b);
  writeln('НОК',' ',a,' ','и',' ',b,' ','=',' ',nok(a,b));
end.

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

Модератор.