Помогите сделать программу по икт

Ответ:

program zadacha;

var x,y:real;

begin

writeln('x:');

readln(x);

if x<-6 then y:=x+3

else if x>10 then y:=(x+2)/2

else y:=x*x+2;

writeln('y=',y);

end.