Компилятор у меня идет и под хр и под семеркой. Для графики используй DosBox. Или поставить School Pack, но он тоже через DosBox - работает.
program sssss; var q,q1,q2,q3,q4:boolean; x,y:integer; begin writeln ('vvod koorduHaT To4ku'); readln (x,y); q1:=x>=(-1); q3:=x<=1; q2:=y>=(-1); q4:=y<=1; q:=q1 or q2 or q3 or q4; writeln(q); readln; End. почему выдает ток TRUE???И бесит уже !!!