fpcsrc/tests/webtbs/tw1275.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

var
  sizes:array [1..3] of int64;
  i:integer;

function Count:int64;
var
  c:int64;
begin
  c:=1;

  writeln(c);
  Count:=c;
end;

begin
    i:=1;
    sizes[i]:=Count();
    writeln(sizes[i]);
end.