Помогите плиз. Надо сделать в Pascal.

var y,x : integer;

Begin

readln(X);

Y:=sqrt(x*x+sqrt(2*x*x+sqrt(4*x*x+sqrt(6*x*x+sqrt(8*x*x+sqrt(10*x*x+sqrt(12*x*x+sqrt(1*4x*x))))))))

writeln(Y);

End.