Написать программу, которая определяет, попадает ли точка с заданными координатами Х, Y в область, закрашенную на рисунке серым цветом. Результат работы программы вывести в виде текстового сообшения, Параметр R вводится с клавиатуры.(Программа Пайтон) ​

var

  k: integer; begin

  read(k);

  case k of

    1..2,12: write('зима');

    3..5: write ('весна');

    6..8 : write ('лето');

    9..11: write ('осень');

  end; end.

program xxx;

  var a, b, s : real;

              r, p, d : real;

begin

    write ('введите певрое число- ');

    readln (a);

    write ('введите второе число- ');

    readln (b);

    s: = a+ b;

    r : = a - b;

    p : = a* b;

    d : = a/b;

    writeln ('сумма =', s);

    writeln ('разность =', r);

    writeln ('произведение =', p);

    writeln ('частное = ', d);

    readln

end.

пусть введенный интервал будет

b и c,где b< c

var a,b,c,i: longint;

begin

    read(b,c);

    for i: =b to c do

            if i mod a=0 then write(i);

end.

у меня получилось, что первое число 954, второе 459, а третье 495. т.е. получился пример : 954-459=495