Пожалуйста посчитайте ПОЖАЛУЙСТА

225

var x, y: real;

begin

   readln(x);

   if x <= 0 then y := 0

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

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

   writeln(y:3:0);

end.