Определить попадает ли точка с заданными координатами в одну из областей 1 или 3 рис 4.5

Жил-был Ослик и не было у него друзей, потому что он был психопатом, мизантропом и вообще сыном Ослицы. Долгими осенними вечерами ( а в жизни ослика была только осень) он читал книгу «Химия прочее»  и мечтал кого- нибудь  победить или просто что бы от него все отъ-сь (менты, участковый психиатр, соседи-слонята и соседи ежата). Однажды ослику приснился сон, что он вовсе не ослик, а просто проекция пятна на плоскости. В то утро ослик проснулся совершенно другим осликом. Мир был наполнен красками и пеньем птиц и солнце светило на маленький столик у кроватки ослика на котором мог бы стоять компьютер, если бы он у ослика был.

Var
d:integer;
const
a=650;
b=1;
c=1000;
begin
write('Введите объём видеофайла в мегабайтах: ');
readln(d);
if d>a then write('Видеофайл не помещается на  носитель информации"А"!',#10) else
writeln('Памяти хватает для записи на носитель "А"! ',#10);
if d>b then write('Видеофайл не помещается на  носитель информации"B"!',#10) else
writeln('Памяти хватает для записи на носитель "B"! ',#10);
if d>c then write('Видеофайл не помещается на данный носитель информации"С"!',#10) else
writeln('Памяти хватает для записи на носитель "C"! ',#10);
readln;
end.