소스 검색

no message

florian 25 년 전
부모
커밋
bab94870da
1개의 변경된 파일19개의 추가작업 그리고 0개의 파일을 삭제
  1. 19 0
      tests/webtbs/tw1275.pp

+ 19 - 0
tests/webtbs/tw1275.pp

@@ -0,0 +1,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.