Ответ:

PascalABC.NET

• begin
• var x := ReadReal('x:');
• Print('y:', x**3 - (x**2 -x +3)/x**(1/2));
• end.

Объяснение:

a**b - возвращает a^b.

Print(a,b,...) - выводит значения a,b,... на экран, после каждого значения выводит пробел.

ReadReal(prompt: string) - выводит приглашение к вводу prompt и возвращает значение типа real, введенное с клавиатуры, после чего осуществляет переход на следующую строку.