Помогите пожалуйста!! ​

Question

Помогите пожалуйста!! ​

---

Answer 1

Ответ:

Program p1;

var x,y:integer;

begin

writeln('Введите значение x');

readln(x);

if (x

else if (x>0) and (x

else if (x>1) then y:=sqr(x);

writeln(y);

end.

при вводе 12, выводит 144

Объяснение: