mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 23:48:07 +02:00
24 lines
387 B
ObjectPascal
24 lines
387 B
ObjectPascal
{ %opt=-vw -Sew }
|
|
{ %norun }
|
|
procedure p;
|
|
var
|
|
c : char;
|
|
w : widechar;
|
|
a : array[0..1] of longint;
|
|
i : integer;
|
|
e : (e1,e2,e3);
|
|
begin
|
|
writeln(length(c));
|
|
writeln(length(w));
|
|
writeln(length(a));
|
|
writeln(low(i));
|
|
writeln(high(i));
|
|
writeln(ord(low(e)));
|
|
writeln(ord(high(e)));
|
|
writeln(low(a));
|
|
writeln(high(a));
|
|
end;
|
|
|
|
begin
|
|
end.
|