Алгоритм и задачу ** языке Pascal

Question

Алгоритм и задачу на языке Pascal

---

Answer 1

Блок-схема - в прилагаемом файле.

var x,y:integer;
begin
readln(x);
if x>=2 then y:=x*x+3*x
 else if x>-2 then y:=x*x*x+4
         else y:=x-5;
writeln('y = ',y);
end.

Пример:
-1
y = 3

---