{
TASK:PENKZ
LANG:PASCAL
}

program penkiazenkliai;
  { 15 olimpiada, I etapas, Vyresniųjų grupė, 284 uždavinys }
  var m, n, sk: longint;
begin
  n := 100; { 100*100 = 10000 - mažiausias penkiaženklis }
  while n*n < 100000 do
    begin
      m := n*n div 1000 + n*n mod 100;
      { tikrinsime, ar šis skaičius kvadratas }
      { jis gali būti skaičiaus iš intervalo [4..14] kvadratas }
      sk := 4;
      while m > sk*sk do
        sk := sk + 1;
      if sk*sk = m
         then writeln (n*n);
      n := n + 1;
    end;
end.