Program veletlenszam;

Var
  k : Byte;

Function NegyzetKozep(bemeNet : integer) : integer;
Var
  x : integer;
  s : String;
  hibakod : integer;
  b : longint;

Begin
  b:=bemeNet;
  b:=b*b;
  str(b,s);

  delete(s,length(s) - ((length(s)-k+1) Div 2),(length(s)-k+1) Div 2);
  delete(s,1, (length(s)-k));
  Val(s,x,hibakod);
  If hibakod<>0 then WriteLn('G z van ™csi!');
  NegyzetKozep:=x;
End;

Var
 s : String;
 a : integer;
 x: integer;

BEGIN
  Write('Örj be egy max. 5jegyű sz mot : ');
  Repeat
    ReadLn(s);
    Val(s,x,a)
  Until (length(s)<6) and (a=0);
  k:=length(s);

  For a:=1 to 1000 do
    Begin
      Write(x,' ');
      x:=NegyzetKozep(x);
    End;
  WriteLn;
  WriteLn('šss entert!');
  ReadLn;
End.