Program kl;
var x,y:real;
begin
writeln ('ввести x');
readln (x);
if x<=-100 then y:=5*x+10 else if -100<x<=0 then y:=x*x-1 else y:=x;<br>writeln ('y=',y);
end.
ну вот так получилось, только он вот тут -100<x<=0 такую операция '<' не применима к типам integer и boolean......... Но это панкаль.абс.нет я не знаю че у него на уме... в школе всё работало.