blob: cd37687f22db61a5fe7c3f3e12aeabbbc24f8987 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{ %VERSION=1.1}
var
a1 : array of longint;
i : longint;
begin
setlength(a1,10);
setlength(a1,0);
setlength(a1,10);
setlength(a1,100);
setlength(a1,10);
for i:=0 to 9 do
a1[i]:=i*i;
setlength(a1,1000);
setlength(a1,10);
for i:=0 to 9 do
writeln(a1[i]);
end.
|
