mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 05:08:06 +02:00
13 lines
143 B
ObjectPascal
13 lines
143 B
ObjectPascal
{ %fail }
|
|
|
|
var
|
|
a: array[1..2] of longint;
|
|
l: longint;
|
|
begin
|
|
l:=0;
|
|
for a[1]:=1 to 10 do
|
|
inc(l);
|
|
if (l<>10) then
|
|
halt(1);
|
|
end.
|