{
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.
