//PascalABC.Net 3.1.0.1200
var
c: char;
begin
readln(c);
if c in ['0'..'9'] then
writeln(ord(c))
else
writeln(chr(ord(c) + 1), chr(ord(c) + 2));
if c in ['A'..'Z'] then
writeln(LowCase(c));
end.
Степень числа.
Например, 1*10^2+4*10^1+3*10^0+5*10^-1
будет записана как 1*
+4*
+3*
<span>Пиксель, наверное, разве что слово "логический" смущает</span>