var i, c: integer;
var n: real;
var str, str2: string;

begin
  str2 := '';
  read(str);
  for i := length(str) downto 1 do begin
    insert(str[i], str2, length(str) - i + 1);
  end;
  val(str2, n, c);
  writeln('Развернутое число: ', n);
  writeln('Квадрат числа: ', n * n);
end.