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

var a,x:real;begin  writeln('Введите x');  readln(x);  a:=sqrt((sqr(x)+2*x+3)/3*x);  writeln('ответ а = ',a);end.Var x: integer;BeginWriteln ('введите значение стороны для куба');Readln (x);Writeln ('Объем куба равен: ', sqr(x)*x);End.