11 lines
98 B
ObjectPascal
11 lines
98 B
ObjectPascal
uses system, crt;
|
|
|
|
var c:char;
|
|
|
|
begin
|
|
c:=readkey;
|
|
Writeln(Convert.ToByte(c).tostring);
|
|
end.
|
|
|
|
|