Ответы и объяснения

2013-11-15T19:40:24+04:00
Var x,y:longint;
begin     
readln(x);     
If x<= (-100) then y:=5*x+10                   
                   else if x<=0 then y:=x*x-1                               
                                        else y:=abs(x);     
writeln(y);
end.