ПОМОГИТЕ ПОЖАЛУЙСТА

Question

ПОМОГИТЕ ПОЖАЛУЙСТА

---

Answer 1

Ответ:

225

Объяснение:

var x, y: real;

begin

   readln(x);

   if x <= 0 then y := 0</p>

   else if (x > 0) and (x <=1) then y := x</p>

   else if x > 1 then y := x * x;

   writeln(y:3:0);

end.