Дан символ —C. Вывести его код —(то есть его номер в кодовой таблице).
Program stroka1-
Var a:byte-
b:char-
begin
b:=’C’-
a:=ord(b)-
writeln(‘код равен ’,a)-
readln-
end.