Напишите на языке паскаль программу вычисления 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.

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