Спасибо всем, я нашла ошибку. Вот что получилось :
Код:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a,b,na: integer;
procedure NOD (x,y: integer;var g:integer);
begin
while x<>y do
if x>y then
x:=x-y
else
y:=y-x;
g:=x;
end;
begin
write('A=');
readln(a);
write('B=');
readln(b);
NOD(a,b,Na);
writeln ('NOK=',a*b/na);
readln;
end.