Ответ:

var

   k, l, n: integer;

function nod (var a,b: integer): integer;

   var c: integer;

   begin

       repeat

           if a > b then

               a := a mod b

           else

               b := b mod a;

       until (a = 0) or (b = 0);

       nod := a + b;

   end;

begin

   writeln ('Введите два числа: ');

   readln (k, l);

   n := nod (k, l);

   writeln ('НОД = ', n);

readln

end.

Объяснение: