Y=√х³ на паскале напишите пж
Var y, x : Real; begin WriteLn('Vvedite X'); ReadLn(x); y:= sqrt(sqr(x)*x); WriteLn('Otvet:', y); ReadLn; end.