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.