// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!
1. Современное решение
begin
var x:=ReadReal('x=');
var F:=x<7 ? -x*x : 2**(-x)/(x*x-9);<br> Writeln('F(x) = ',F)
end.
Примеры
x= 5.3
F(x) = -28.09
x= 8
F(x) = 7.10227272727273E-05
2. Решение в стиле "ТурбоПаскаль конца 80-х"
var
x,F:real;
begin
Write('x= ');
Readln(x);
if x<7 then F:=-x*x<br> else F:=Exp(-x*Ln(2))/(x*x-9);
Writeln('F(x) = ',F);
Readln
end.
