program Big_Mas;
CONST N1= 1000; N2= 1000;

type M1= array [1..N1 ] of REAL;
M2= array[1..N2] of ^M1;
var a1, a2: M2;
i, j: word;
BEGIN
for i:=1 to N2 do 
New(a1[i]);
for i:=1 to N2 do 
New(a2[i]);
for j:= 1 to N1 do
for i:= 1 to N2 do 
begin
a1[i]^[j]:= j + i*3;
a2[i]^[j]:= j - i*5;
end;
for i:= 1 to N2 do 
Dispose(a1[i]); 
for i:= 1 to N2 do 
Dispose(a2[i]);
Readln;
END.