Кого считают изобретателем www и когда это произошло?

Тим-бернес-ли, в меньшей степени роберт кайо. в 1989 году официальное рождение всемирной паутины.

label next;

var a: array of array of integer;

b: array of integer;

i,j,n: integer;

begin

write('введите   n: ');

readln(n);

setlength(a,n);

setlength(b,n);

for i: =0 to n-1 do setlength(a[i],n);

for i: =0 to n-1 do

for j: =0 to n-1 do a[i,j]: =60-random(100);

writeln('полученный массив: ');

for i: =0 to n-1 do begin writeln;

for j: =0 to n-1 do write(a[i,j],' ');

end;

i: =0;

j: =0;

while (i< n) do begin

while (j< n) do begin

if (a[i,j]> 0) then begin

b[i]: =a[i,j];

j: =0;

goto next;

end else inc(j);

end;

next: inc(i);

end;

writeln;

writeln('отобранные данные: ');

for i: =0 to n-1 do write(b[i],' ');

readln;

end.

если я правильно понял, то

var a: array of array of integer;

n,i,j: integer;

begin

write('введите n: ');

readln(n);

setlength(a,n);

for i: =0 to n-1 do setlength(a[i],n);

for i: =0 to n-1 do

for j: =0 to n-1 do a[i,j]: =random(n)*2;

writeln('вывод матрицы : ');

for i: =0 to n-1 do begin

writeln;

for j: =0 to n-1 do write(a[i,j],' ');

end;

writeln;

writeln('главная диагональ : ');

for i: =0 to n-1 do for j: =0 to n-1 do if (i-j=0) then write(a[i,j],' ');

writeln;

writeln('побочная диагональ : ');

for i: =0 to n-1 do for j: =0 to n-1 do if (i+j=n-1) then write(a[i,j],' ');

readln;

end.