begin

 var x := ReadReal('Х:= ');

 if x <= 0 then

   Print('Y:= 0');

 if (0 < x) and (x <= 1) then

   Print('Y:= ', x);

 if x > 1 then

   Print('Y:= ', Sqr(x));

end.

При X:=-5 На экран будет выводиться 0 т.к истино условие X<=0