Попадает ли точка в заштрихованную область Pascal.

Текст неформатирован, это недопустимо

var x,y:real; begin writeln('Введите координаты точки'); readln(x,y); if((x<=0)and(y>=0)and(x*x+y*y<=1)) or((x>=0)and(y<=0) and(x*x+y*y<=2)) then write('Точка принадлежит заштрихованной области') else write('Точка не принадлежит заштрихованной области') end.

PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018Внимание! Если программа не работает, обновите версию!begin  var (x,y):=ReadReal2('Введите координаты точки:');  var r:=ReadReal('Введите радиус окружности:');  if (x*x+y*y<r*r) and (y<-x) then Writeln('Попадает')  else Writeln('Не попадает')end.ПримерыВведите координаты точки: -1.1 1.2Введите радиус окружности: 2Не попадаетВведите координаты точки: -1.1 0.8Введите радиус окружности: 2Попадает