REM
REM   4096
REM

CLS
 
FOR i = 10 TO 100 STEP 2
   b = i * i
   n = INT(LOG(b) / LOG(10))
   a1 = b \ 10 ^ n
   a2 = b \ 10 ^ (n - 1) MOD 10
   IF a1 MOD 2 = 0 AND a2 MOD 2 = 0 THEN PRINT b;
NEXT i
END

Var
 N,i,j,k,m,D:Word;
Begin
 for i:=1 to 4 do
  for j:=0 to 4 do
   if (j<>i) then
    for k:=0 to 4 do
     if (k<>i) and (k<>j) then
      for m:=0 to 4 do
       if (m<>i) and (m<>j) and (m<>k) then
        begin
         N:=2*i*1000+2*j*100+2*k*10+2*m;
         D:=TRUNC(Sqrt(N));
         if D*D=N then
          begin
           Writeln(D,'*',D,' = ',N);
           Readln;
           exit;
          end;
        end;
 Writeln('No such values!');
 Readln
End.