Составить программу, по которой выведется значение true, если точка с заданными координатами (x, y) лежит внутри заштрихованной области и false – в противном случае.

Неполная . к ней должен быть график с заштрихованными областями, иначе никак.

{дано двузначное число. определить: а) является ли сумма его цифр двузначным числом; б) больше ли числа а сумма его цифр} var n, s : byte;       a: integer; begin   writeln('введите двузначное число');   readln(n); {определение суммы цифр числа div - целая часть от деления, mod - остаток от деления}   s: =n div 10 + n mod 10;   writeln('сумма цмфр числ', n: 5, 'равна',s: 5);   if s> 9 then writeln('сумма цифр двузначное число', s)   else writeln('сумма цифр не двузначное число', s);   writeln('введите число а');   readln(a);   if s> a then writeln('сумма цифр', n,' больше ли числа ', a)   else writeln('сумма цифр', n,' меньше числа ', a); end.

{1 } var   form1: tform1;   s1,s2: string; implementation {$r *.dfm} procedure tform1.formcreate(sender: tobject); begin     s1: ='stroka1';     s2: ='stroka2';     label1.caption: =s1;     label2.caption: =s2; end; procedure tform1.button1click(sender: tobject); var s: string; begin     s: =s2;     s2: =s1;     s1: =s;     label1.caption: =s1;     label2.caption: =s2 end; end. {2 } var   form1: tform1;   n: integer;   a: array[1..10] of integer; implementation {$r *.dfm} procedure tform1.formcreate(sender: tobject); var i: integer; begin   randomize;   label1.caption: ='';   label2.caption: ='';   n: =10;   for i: =1 to n do   a[i]: =random(100); end; procedure tform1.button1click(sender: tobject); var i: integer; begin   for i: =1 to n do   label1.caption: = label1.caption + ' '+inttostr(a[i]); end; procedure tform1.button2click(sender: tobject); var i: integer; begin   for i: =1 to n do   if a[i]< strtoint(edit1.text) then   label2.caption: = label2.caption + ' '+inttostr(a[i]); end; end.