Question

информатика 9 класс Паскаль​

Answer 1

var x,y:integer;

begin

readln(x);

if x<=-100 then y:=5*x-10 else if (x>-100) and (x<=0) then y:=sqr(x)+1 else

  y:=abs(x);

writeln(y)

end.