Program stroka3;
Var a:byte;
b:char;
begin
b:='C';
a:=ord(b);
writeln('код предшествующего символа равен­',a-1);
writeln('код следующего символа равен­',a+1);
readln;
end.