Помогите это решить и написать программу пожалуйста

Question

Помогите это решить и написать программу пожалуйста

---

Comments

В первом "x" с клавиатуры вводится?Во втором сторона с клавиатуру вводится?

Answer 1

Var
a,x:real;
begin
  writeln('Введите x');
  readln(x);
  a:=sqrt((sqr(x)+2*x+3)/3*x);
  writeln('ответ а = ',a);
end.

Var x: integer;
Begin
Writeln ('введите значение стороны для куба');
Readln (x);
Writeln ('Объем куба равен: ', sqr(x)*x);
End.