blob: abe3d57c640ae9c454b597d92f199b6fe8cfa68c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{ %fail }
{$mode delphi}
type
ta1 = array[0..10] of longint;
var
a1 : array[0..10] of longint;
a2 : array of longint;
i : longint;
begin
for i:=low(a1) to high(a2) do
a1[i]:=i*i;
a2:=a1;
if length(a2)<>length(a1) then
halt(1);
for i:=low(a1) to high(a2) do
if a2[i]<>a1[i] then
halt(1);
writeln('ok');
end.
|