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

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);
  readln
end;