blob: 28dee3608ccfcc8944c073ad9eb82ea64afc0c58 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{$mode objfpc}
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.
|
