blob: 7e743e45ca8cc6b177d522f7f04187bec86ff76f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
{ %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.
|
