RosettaCodeData/Task/Character-codes/PascalABC.NET/character-codes.pas

7 lines
78 B
ObjectPascal

begin
var c := 'a';
var i := c.Code;
Println(i);
Println(Chr(i))
end.