program r7_37;
uses crt;
const n=10;
type myarray=array[1..n] of integer;
var a:myarray;
      i,k,l:integer;
Procedure Init(var X:myarray);
 var i:integer;
 begin
   randomize;
   for i:=1 to n do
    X[i]:=integer(random(30));
 end;
Function Nod(a,b:integer):integer;
 begin
   if (a=0) or (b=0) then Nod:=a+b
    else if a>b then Nod:=Nod(a mod b,b)
      else Nod:=Nod(a,b-a);
 end;
Function Nok(a,b:longint):longint;
 begin
  Nok:=a*b div Nod(a,b);
 end;
Procedure Solve( x:myarray; var p,q:longint);
 var i,j,z:longint;
 begin
   z:=Nok(x[1],x[2]);
   for i:=1 to n-1 do
    for j:=i+1 to n do
     if Nok(x[i],x[j])       z:=Nok(x[i],x[j]);
      p:=x[i];
      q:=x[j];
     end;
 end;
BEGIN
Init(A);
Solve(A,k,i);
writeln('Минимальное НОК у чисел',k,'и',i);
end.