program ex1;
var a:char;
begin
readln(a);
writeln(ord(a));
end.
/**************************************************************
	Problem: 1967
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/