Составить программу нахождения значения выражения: у=х2+8х, если значение х вводится с клавиатуры.

Uses crt;
var x: integer;
begin
clrscr;
writeln('Vvedite X'):
readln(x);
writeln('Y=',x*(x+8));
end.