Помогите пожалуйста решать в паскале

Question

Помогите пожалуйста решать в паскале

---

Answer 1

Ответ:

0

Объяснение:

var  x,y: integer;

begin

    readln(x);   // Вводим -19

    if (x<=0) <strong>then y:=0;

    if (x>0) and (x<=1) <strong>then y:=x;

    if (x>1) then y:=x*x;

    writeln(y);   // Получаем 0

end.

Comments

Пометка "Лучший ответ" ставиться только если ответов несколько, или у меня не лучший ответ?