Ответ Автор - micro2002 uses crt;var x, y:real;beginread(x);if x<=-70 theny:=x*x+50elseif (-70<x) and (x<=0) theny:= abs(x)elsey:=3*(x*x+1);writeln(y);end.