Program myprg; var x,y: integer; begin writeln('x='); read (x); if (x> =0) then y: =0; if (x> 0) and (x< =1) then y: =x; else y: =sqr(sqr(x)); writeln ('y=',y); end. program1.pas(9) : встречено 'else', а ожидался оператор ошибка выходит

Program myprg;
var
x,y: integer;
begin
writeln('x=');
read (x);
if (x>=0) then y:=0;
if (x>0) and (x<=1) then y:=x
else y:=sqr(sqr(x));
writeln ('y=',y);
end.