Ответы и объяснения

2013-10-14T22:53:35+04:00
Var X: integer;
begin
Write('X = ');
Read(X);

if (x < -5) then Writeln('y = ', 0);
if (x >=-5) AND (X<=-2) then Writeln('y = ', 3*X-5);
if (x >=-2) AND (x<2) then Writeln('y = ', X);
if (x >=2) AND (X < 5) then Writeln('y = ', X*X);
if (x >=5) then Writeln('y = ', 3);
end.