Составьте программу по этой блок схеме.Паскаль. Заранее спасибо.

спс

обнови

чтобы увидеть

большое спасибо

varx,y:integer;begin write('x: '); readln(x);if x<=-12 then y:=-x*xelse if x<0 then y:=sqr(x)*sqr(x)else y:=x-2;writeln(y);end.