Дам 30 баллов! Помогите сделать пожалуйста.

Question

Дам 30 баллов! Помогите сделать пожалуйста.

---

Answer 1

Ответ:

Смотри картинку

Объяснение:

program z1;

var x,y:integer;

begin

write ('x = ');

readln (x);

if x > 1 then y:=x*x

else y:=1-x;

writeln ('y = ',y)

end.

---