можеть ли быть такое???

[P®o©omp@s]

может ли быть такое либо автор книги ошибся?
http://www.programmersforum.ru/attac...1&d=1256508219
попробовал в лабу сделать решение этого задания , получилось что два решения при совершенно других условиях, причем второе более правдоподобно:
I. 3<|x|<10;(x-x^2); |x|≤10;(2x-3); |x|≥10; 3x^2+4;

program ex_1;
var x,y1,y2:real;
begin
Writeln('Vvedite x');
Readln(x);{schityvanie dannyh;}
{vy4isleniya po usloviyam;}
if abs(x)<=10 then {uslovie_1;}
  begin
    y1:=2*x-3;
     if (abs(x)>3)and(abs(x)<10) then y2:=x-sqr(x);{uslovie_2;}
   end;
if abs(x)>=10 then y1:=3*sqr(x)+4; {uslovie_3;}
{vyvod resheniya;}
Writeln('Result:');
{v sluche esli vypolnyautsya dva usloviya;}
if (y2>0) or (y2<0) or not(y2=0) then 
  begin
   Writeln('y1=',y1);
   Writeln('y2=',y2);
    end
 else Writeln('y1=',y1);{vypolnyaetsya odno uslovie;}
Readln;{ogidanie deistviya;}
end.

II. 3<|x|<10;(x-x^2); |x|≤3;(2x-3); |x|≥10; 3x^2+4;

program ex_2;
var x,y:real;
begin
Writeln('Vvedite x');
Readln(x);{schityvanie dannyh;}
{vy4isleniya po usloviyam;}
if abs(x)<=3 then y:=2*x-3{uslovie_1;}
  else if (abs(x)>3)and(abs(x)<10) then y:=x-sqr(x){uslovie_2;}
    else if abs(x)>=10 then y:=3*sqr(x)+4; {uslovie_3;}
{vyvod resheniya;}
Writeln('Result:',y);
Readln;{ogidanie deistviya;}
end.

Собственно вопрос, может ли такое быть?