C++ :

#include<iostream>
#include<cmath>
using namespace std;

int main()
{
	for(int i=1000;i<=9999;++i)
	{
		int a=i/1000;
		int b=i/100%10;
		int c=i/10%10;
		int d=i%10;
		
		if(a==b&&c==d&&(sqrt(i)==floor(sqrt(i))||sqrt(i)==ceil(sqrt(i))))
		cout<<i;
	}
	
	return 0;
}

Pascal :

begin
 writeln('7744');end.