[Brish]

Спасибо всем, я нашла ошибку. Вот что получилось :

Код:

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.