Program P14;
 { Studierea funcţiei ord }
var x : char;     { caracter }
    i : integer;  { număr de ordine }

begin
 readln(x); i:=ord(x); writeln(i);
 readln(x); i:=ord(x); writeln(i);
 readln(x); i:=ord(x); writeln(i);
 readln(x); i:=ord(x); writeln(i);
end.