12 lines
143 B
Text
12 lines
143 B
Text
|
MODULE Ascii;
|
||
|
|
IMPORT Out;
|
||
|
|
VAR
|
||
|
|
c: CHAR;
|
||
|
|
d: INTEGER;
|
||
|
|
BEGIN
|
||
|
|
c := CHR(97);
|
||
|
|
d := ORD("a");
|
||
|
|
Out.Int(d,3);Out.Ln;
|
||
|
|
Out.Char(c);Out.Ln
|
||
|
|
END Ascii.
|