Составьте программку вычисления значения функции y=(5x2-4)/(2x+8)

var
x, y: real;

begin

cls;

writeln ( y = (5x² - 4)/(2x + 8));
writeln ( Введите аргумент функции (x). );
readln (x);
y := (5 * x * x - 4) / (2 * x + 8);
writeln( Значение обозначенной функции при значении её довода, одинаковом , x, , одинаково , y, . );
end.