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
