mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-28 16:03:48 +02:00
24 lines
369 B
ObjectPascal
24 lines
369 B
ObjectPascal
{ Old file: tbs0340.pp }
|
|
{ }
|
|
|
|
{$packenum 1}
|
|
type
|
|
t = (a,b,c,d,e);
|
|
|
|
const arr: array[0..4] of t = (a,b,c,d,e);
|
|
|
|
var
|
|
x: byte;
|
|
|
|
begin
|
|
x := 0;
|
|
writeln(ord(arr[x]),' ',ord(arr[x+1]),' ',ord(arr[x+2]),' ',ord(arr[x+3]),' ',ord(arr[x+4]));
|
|
for x:=0 to 4 do
|
|
if ord(arr[x])<>x then
|
|
begin
|
|
writeln('error in {$packenum 1}');
|
|
halt(1);
|
|
end;
|
|
end.
|
|
|