Дано n целых чисел. Найти среди них пару чисел, НОД которых имеет наибольшее значение; НОК которых имеет наименьшее значение

program q;
var i,n,j,max,m,g,k,w:integer;
min,h:real;
c,d:array [1..20] of integer;
a,b:array [1..20] of real;
function nod(a,b:integer):integer;
label 1;
begin
1:if  a=b then nod:=a
else
if a>b then begin
a:=a-b;
goto 1;
end
else
begin
b:=b-a;
goto 1;
end;
end;
 
function nok(a,b:integer):real;
begin
nok:=(a*b)/nod(a,b);
end;
 
begin
writeln('vvedite kol-vo cifr');
readln(n);
writeln('vvedite cifri');
for i:=1 to n do
read(d[i]); m:=0;
writeln; w:=0;
 
for i:=1 to n-1 do
for j:=i+1 to n do
begin
w:=nod(d[i],d[j]);
inc(m);
write(w,' ');
for k:=1 to m do
c[k]:=w;
end;
max:=c[1];
for i:=1 to m do
if max<c[i+1] then
max:=c[i+1];
for i:=1 to n-1 do
for j:=i+1 to n do
begin
c[i]:=nod(d[i],d[j]);
if c[i]=max then
writeln('max=',max,' ',d[i],' ',d[j]);
end;
 
for i:=1 to n-1 do
for j:=i+1 to n do
begin
h:=nok(d[i],d[j]);
inc(m);
write(h,' ');
for k:=1 to m do
a[k]:=h;
end;
min:=a[1];
for i:=1 to m do
if min<a[i+1] then
min:=a[i+1];
for i:=1 to n-1 do
for j:=i+1 to n do
begin
a[i]:=nok(d[i],d[j]);
if a[i]=min then
writeln('min=',min,' ',d[i],' ',d[j]);
end;
 
 
end.

program q;
uses crt;
function nod(x,y:integer):integer;
begin
repeat
if x>y then x:=x mod y
else y:=y mod x;
until (x=0) or (y=0);
nod:=x+y;
end;
function nok(x,y:integer):integer;
var m,nk:integer;
begin
if x>y then m:=x else m:=y;
nk:=m-1;
repeat
 inc(nk);
until ((nk mod x)=0) and ((nk mod y)=0);
nok:=nk
end;
function prost(x:integer):boolean;
var i:integer;
    f:boolean;
begin
f:=true;
i:=2;
while(i*i<=x)and f do
if x mod i=0 then f:=false
else i:=i+1;
prost:=f
end;
var n,i,j,mn,mx,i1,i2,i3,i4,i5,i6:integer;
    a:array [1..20] of integer;
begin
writeln('Количество чисел n<=20 n=');
read(n);
writeln('Введите числа');
for i:=1 to n do
read(a[i]);
i1:=1;
i2:=2;
mx:=0;
i3:=1;
i4:=2;
mn:=maxint;
i5:=0;
i6:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
 begin
  if nod(a[i],a[j])>mx then
   begin
    mx:=nod(a[i],a[j]);
    i1:=a[i];
    i2:=a[j];
   end;
  if nok(a[i],a[j])<mn then
   begin
    mn:=nok(a[i],a[j]);
    i3:=a[i];
    i4:=a[j];
   end;
  if prost(a[i])and prost(a[j])and(abs(a[j]-a[i])=2) then
   begin
    i5:=a[i];
    i6:=a[j];
   end;
 end;
writeln('Наибольший НОД имеют числа ',i1,' и ',i2,' он=',mx);
writeln('Наименьший НОК имеют числа ',i3,' и ',i4,' он=',mn);
if i5=0 then write('Пар близнецов нет')
else write('Пары близнецов есть, например ',i5,' и ',i6)
end.