//PascalABC.Net
//NaaMan
var
    x, y : real;
begin
    write('Введите значение Х: ');
    readln(x);
    if (2 * x + 8 = 0) then begin
        writeln('Для этого значения Х решения нет.');
        writeln('Конец программы');
        end
    else begin
        y := (5 * x * x - 4) / (2 * x + 8);
        writeln('Результат вычислений: ',y)
        end
end.

Program test
Var x:integer;
y:integer;
Begin
Writeln("Введите x:");
Readln(x);
y=(5x^2-4)/(2x+8);
Writeln("Y=",y);
End.