Даны множества A и B, состоящие соответственно из N1 и N2 точек (точки заданы своими координатами x, y).

uses crt;
const nmax=20;
type point=record
           x,y:real;
           end;
var a,b:array[1..nmax] of point;
    n1,n2,i,j,imn,jmn:integer;
    r,mn:real;
begin
randomize;
repeat
writeln('Введите размеры множеств от 1 до ',nmax);
read(n1,n2);
until(n1 in [1..nmax])and(n2 in [1..nmax]);
writeln('Множество А:');
for i:=1 to n1 do
 begin
  a[i].x:=10*random;
  a[i].y:=10*random;
  write('(',a[i].x:3:1,';',a[i].y:3:1,') ');
 end;
writeln;
writeln('Множество B:');
for i:=1 to n2 do
 begin
  b[i].x:=10*random;
  b[i].y:=10*random;
  write('(',b[i].x:3:1,';',b[i].y:3:1,') ');
 end;
writeln;
mn:=sqrt(sqr(a[1].x+b[1].x)+sqr(a[1].y+b[1].y));
imn:=1;
jmn:=1;
for i:=1 to n1 do
for j:=1 to n2 do
if sqrt(sqr(a[i].x+b[j].x)+sqr(a[i].y+b[j].y))<mn then
 begin
  mn:=sqrt(sqr(a[i].x+b[j].x)+sqr(a[i].y+b[j].y));
  imn:=1;
  jmn:=j;
 end;
writeln('Минимальное расстояние=',mn:0:1);
write('Между точками A(',a[imn].x:3:1,';',a[imn].y:3:1,') и В(',b[jmn].x:3:1,';',b[jmn].y:3:1,')');
end.