Pascal ABC Составить алгоритм и программу, проверяющую, попадает ли...

 var x,y: real; 
begin 
  readln(x,y); 
  var r := sqrt(sqr(x) + sqr(y)); // расстояние до начала координат 
  var q := (x<0) and (y<0);       // TRUE если в III четверти 
  writeln( 
    (r>=2) and ((r<=3)            // если внутри кольца, то попадает --> TRUE 
                                  // если попало, то нижняя часть условия 
                                  // проверяться не будет 
    or                            // если не попало, то 
    (q                            // если не попало в III четверть --> FALSE 
                                  // то нижняя часть условия проверяться не будет 
    and                           // если попало и 
    ((x>=-3) and (y>=-3))))       // условие верно, то попало --> TRUE 
                                  // иначе --> FALSE 
  ); 
end.