Составьте программу нахождения наименьшего общего кратного (нок) двух чисел, используя формулу: а*в = нод(а*в)*нок(а, в (по алгоритму евклида на паскале)

Var       x, y, p: integer; begin       writeln('введите два числа');       readln(x, y); {вводим два целых числа}       p : = x * y;             repeat               if x > y then x : = x mod y               else y : = y mod x       until (x = 0) or (y = 0);       {до тех пор, пока одно из чисел не станет равно нулю}             writeln('ноk=', p / (x + y)); {вывод нод - без условного оператора, так как одно из чисел обязательно равно нулю} end.

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('n=');   if n> 10 then begin writeln('n> 10'); exit end;   var a: =readarrinteger(n);   writeln(10*'-');   var b: =a.where(k-> k.iseven or (k mod 13=;   var m: =0;   for var i: =0 to b.count-2 do       for var j: =i+1 to b.count-1 do           if (b[i]*b[j]) mod 26=0 then begin               println(b[i],b[j]); m+=1               end;   if m=0 then writeln('no') end. пример n= 6 29 38 16 39 41 7 38 39 16 39

Var     a: array[1..10] of integer;     i,j,n,k: integer; begin write('n = '); readln(n); write('введите массив a(',n,'): '); for i: = 1 to n do       read(a[i]); k: =0; for i: = 1 to n do       for j: = i+1 to n do               if (a[i]*a[j]) mod 26 = 0 then                       begin                       writeln(a[i],' ',a[j]);                       k: =1;                       end; if k=0 then writeln('no') end.