C++ :

#include<bits/stdc++.h>
using namespace std;
char a;
int main()
{
    cin>>a;
    cout<<int(a);
    return 0;
}

Pascal :

var 
  a:char;
begin
  readln(a);
  write(ord(a));
end.