program cislo;

var
   n:integer;

procedure nread(var n:integer);
var
   c:char;
   a,b,i:integer;
   s:string;

begin
a:=1;
n:=0;
s:='';
repeat
 c:=inkey;
 if (ord(c)>48) and (ord(c)<57) then
 begin
  s[a]:=c; 
  write(c);
  a:=a+1;
 end
 else
  if c=chr(8) then begin
   if a>1 then begin
    a:=a-1;
    write(' ',c);
    write(c);
    write(' ',c);
   end;
  end;    
until c=chr(13);
a:=a+1;
s[0]:=chr(a-2);
writeln;
b:=1;
for i:=a-2 downto 1 do
 begin
  n:=n+b*(ord(s[i])-48);
  b:=b*10;
 end;
end;

begin
write('Vloz cislo: ');
nread(n);
writeln('Druha mocnina:',n*n);
end.
