C++ :

#include <iostream> 
#include <cstdio>
using namespace std;
int main()
{
	int t,n;
	char c;
	cin>>t;
	for(int i=0;i<t;i++)
	{
		cin>>n;
		c=n;
		cout<<c;
	}
	return 0;
}

Pascal :

var a:array[0..1001] of longint;
    i,n:longint;
begin
  readln(n);
  for i:=1 to n do
    read(a[i]);
  for i:=1 to n do
    write(chr(a[i]));
end.