Даны координаты n точек. Составьте программу для вычисления расстояния между данными точками

for i:=1 to n-1 do
for j:=i+1 to n do

var x,y:array[1..50] of real;

Program  TabL;
CONST 
var
x,y:array[1..50] of ReaL;
i,j:integer;
begin 
for i:=l to n-1  do 
     for j:=1 to n do 
B[i,j]:=sqrt(x2-x1)+sqrt(y-y1);
 
for i:=l to n do 
     Begin
     for j:=l to m do Write (B[i,j]:6:2);
      writeln;
     end;
END.

var x,y:array[1..n] of reaL;
    L:real;
    i,j,k:integer;
begin
randomize;
writeln('Координаты точек');
for i:=1 to n do
 begin
  x[i]:=-5+10*random;
  y[i]:=-5+10*random;
  write(i:2,'(',x[i]:5:2,';',y[i]:5:2,')');
  if i mod 5=0 then writeln;
 end;
writeln;
writeln('Расстояния между точками');
k:=0;
for i:=1 to n-1  do
for j:=i+1 to n do
 begin
  L:=sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]));
  write(i:2,'-',j:2,' = ',L:5:2,'  ');
  k:=k+1;
  if k mod 5=0 then writeln;
 end;
end.

const n = 5; // можно и другое число написать

const n=10;