PROGRAM MATRICE_VECTOR
uses crt;
type = array[1..10;1..10] of integer;
type = array[1..100] of integer;
var n,i,j,k:integer;
v:vector;
a:matrice;
BEGIN
clrscr;
write (`n=`); readln (n);
for i:=1 to n do
for j:=1 to n do
begin
write (a[`,i,j,`]=`); readln (a[i.j]);
end;
for i:=1 to n do
for j:=1 to n do
for k:=1 to n*n do
If k:=2 to trunc (sqrt a[i,j]), then v[k] :=a[i,j]
readln;
END.