Ответ:
Программа 1
program P1;
var x,y : real;
begin
write('x = '); readln(x);
if(x < 0) then
y := 3 * x * x - 24
else y := 7.5 * x + 56;
writeln(y);
end.
Программа 2
program P2;
var x,y : real;
begin
write('x = '); readln(x);
if(x < 0) then
y := 3 * x * x - 24
else if x > 0 y := 7.5 * x + 56;
writeln(y);
end.