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