C :

#include<stdio.h>

int main()
{

    int i,j,k,c;

    for(i=1;i<=9;i++){                 
        for(j=0;j<=9;j++){   
		if(i!=j){
			k=i*1000+i*100+j*10+j;
			for(c=10;c<100;c++){
				if(c*c==k){
						printf("%d",k);
				}
				
			}
		}          

     }
     }     
    
     } 

C++ :

#include <bits/stdc++.h>
using namespace std;

int main(){
	int i,a,b,c,d;
	
	for(i = 1000;i <= 9999;i++){
		//分解各个位
		a = i / 1000;
		b = i / 100 % 10;
		c = i % 100 / 10;
		d = i % 10;
		if(a == b && c == d && a != c && (int)(sqrt(i)) == sqrt(i)){
			cout<<i<<endl;
		} 
	}
	return 0;
}

Pascal :

var i,a,b,c,d,e:longint;
begin
for i:=33 to 99 do
begin
a:=i*i;
b:=a mod 10;
c:=a div 10 mod 10;
d:=a div 100 mod 10;
e:=a div 1000;
if (b=c)and(d=e) then begin write(a);break;end;
end;
end.

Java :

public class Main {
	public static void main(String[] args) {
		int n = 0;
		int g = 0;
		int s = 0;
		int b= 0;
		int q= 0;
		for(int i = 1; i <= 100; i++) {
			n = i * i;
			g = n % 10;
			s = n / 10 % 10;
			b = n / 100 % 10;
			q = n / 1000;
			if( q == b & s == g) {
				System.out.println( n);
			}
			
		}
	}
}

Python :

for n in range(32,100):
    a=n*n//1000
    b=n*n//100%10
    c=n*n//10%10
    d=n*n%10
    if a==b and c==d and a!=c:
        print(n*n)