// 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); Writeln('F(x) = ',F)end.Примерыx= 5.3F(x) = -28.09x= 8F(x) = 7.10227272727273E-052. Решение в стиле "ТурбоПаскаль конца 80-х"var x,F:real;begin Write('x= '); Readln(x); if x<7 then F:=-x*x else F:=Exp(-x*Ln(2))/(x*x-9); Writeln('F(x) = ',F); Readlnend.