Недавнее содержимое от bosyak

Помогите найти ошибку в програме Delphi program Project1; uses Var a,b,y1,y2,y3:real; begin Readln(a); Readln(b); y1=a+3; y2=a/2+3; y3=a-6; if ((a>-5)and(a<-3)and(y1=b))or ((a>0)and(a<6)and(y2=b))or ((a>6)and(a<9)and(y3=b)) then Writeln('yes') else Writeln('no'); Readln; end. задание...