C :

#include<stdio.h>

int main()
{
	char a,b;
	scanf("%c",&a);
	b=a-32;
	printf("%c",b);
	return 0;
}

C++ :

#include<stdio.h>

int main()
{
	char a,b;
	scanf("%c",&a);
	b=a-('a'-'A');
	printf("%c",b);
	return 0;
}

Pascal :

var s:char;
begin
 readln(s);
 write(upcase(s));
end.