Напишите на языке паскаль программу вычисления y по формуле: y = (9+x^2-7x)^2

Program RLN;var x, y: real;beginwrite (x=);read (x);y:=(9+x*x-7*x)*(9+x*x-7*x);write (y=);write (y);end.

Только тут формула немного по-другому записана. Но результаты те же будут.