blob: d91ce14f30685abd784cfa03b2792d1ff666016d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
{ %VERSION=1.1 }
procedure p1(const a:array of byte);
var
l : longint;
begin
l:=length(a);
writeln('openarray length: ',l);
if l<>9 then
halt(1);
end;
var
a : array[2..10] of byte;
l : longint;
begin
l:=length(a);
writeln('length of a ',l);
if l<>9 then
halt(1);
p1(a);
end.
|
