Написать программу вычисляющую(Pascal)

program z1;

var x:real;

begin

write ('x = ');

readln (x);

write ('y = ',sqrt(sqr(x-2)) + 3*(x*x-7)+ 2*x)

end.

Объяснение:

Хотя немного странно, возводить число под квадратным корнем в квадрат, результат будет равен самому числу, поэтому можно использовать строку

write ('y = ',(x-2) + 3*(x*x-7)+ 2*x)