lenyashastin Ответ:var x,y:integer; begin  readln(x);  if x>0 then    y:=x+100  else if x=0 then    y:=20  else if x<0 then    y:=sqr(x);  writeln(y);end.