3x-9, если х<=7;<br> F(x)= 1/(x^2-4, если x>7.
program z;
var x,y: real;
begin
writeln ('x=');
readln (x);
if x<=7 then y=3x-9</p>
else x>7 then y=1/(sqr(x)-4);
writeln ('y='y)
end.
P.S Должно работать)