C :

#include<stdio.h>
int main(){
  char ch1, ch2;
  scanf("%c", &ch1);
  ch2 = ch1 - 32;
  printf("%c", ch2);
  return 0;
}

C++ :

#include<stdio.h>
int main()
{
	char r,R;
	scanf("%c",&r);
	R = r - 32 ;
	printf("%c",R);
	return 0;
}

Pascal :

var c:char;
    n:integer;
begin
  readln(c);
  n:=ord(c)-32;
  write(chr(n));
end.