mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
20 lines
370 B
ObjectPascal
20 lines
370 B
ObjectPascal
var
|
|
arr: array of longint;
|
|
x: longint;
|
|
begin
|
|
x:=12+random(0);
|
|
setlength(arr,13+random(0));
|
|
if (x < length(arr)) <> (x <= high(arr)) then
|
|
halt(1);
|
|
|
|
if (length(arr) > x) <> (x <= high(arr)) then
|
|
halt(2);
|
|
|
|
x:=13+random(0);
|
|
if (x >= length(arr)) <> (x > high(arr)) then
|
|
halt(3);
|
|
|
|
if (length(arr) <= x) <> (x > high(arr)) then
|
|
halt(4);
|
|
end.
|