begin
  var a := ReadReal;
  if a <= 0 then
    begin
      Writeln('Введите корректные данные!');
      exit
    end
  else
    begin
      var S := Power(a, 2.0);
      var V := Power(a, 3.0);
      Writeln('Площадь грани: ', S, ', объём куба: ', V);
    end;
end.