нужно составить программу на разветвляющиеся алгоритм

Program IfElse;var x,y,g,t: real;begin  writeln(x,g,t);  readln (x,g,t);  if x>=-2 and x<=2   then y:=Sqr(x)-t*g*x   else y:=4+x  write('y=',y);  readlnend;