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

Question

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

---

Answer 1

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