Embarcadero Delphi

program countTo10; type Punct = record x, y : real; end; Dis = record i, j : Punct; end; Puncte = array [1..30] of Dis; type Matrice = array [1..30, 1..30] of real; var k: Puncte; d: Matrice; n, z, l, a, v, m, m1 : integer;

begin program Hello; type Punct = record x, y : real; end; Dis = record i, j : Punct; end; Puncte = array [1..30] of Dis; type Matrice = array [1..30, 1..30] of real; var k: Puncte; d: Matrice; n, z, l, a, v, m, m1 : integer; begin write('n='); readln(n); while(n<1) and (n>30) do begin writeln('Numarul "n" de puncte trebuie sa fie un numar cuprins in acest interval [1;30]'); write('n='); readln(n); end; for m:=1 to n do begin writeln('Introdu coordonatele punctului ',m,':'); write('x=');readln(k[m].i.x); write('y=');readln(k[m].i.y); end; { for m:=1 to n do  writeln('Punctul ',m,' are coordonatele (',k[m].i.x,';',k[m].i.y,')');} for m:=1 to n do   for m1:=m to n do begin d[m,m1]:=sqrt((k[m].i.x-k[m1].i.x)*(k[m].i.x-k[m1].i.x)+(k[m].i.y-k[m1].i.y)*(k[m1].i.y-k[m].i.y)); end; for m:=1 to n do begin for m1:=1 to n do write(d[m,m1],' '); writeln; end; end. end.