uses crt;
var s:char; n:integer;
begin
clrscr;
writeln('Введите символ');
read(s);
n:=ord(s);
writeln(n);
readkey;
end.
