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)
