Нужно написать программу в паскаль Определить, попадет ли точка М(х,у) с координатами, заданными с клавиатуры, в закрашенную фигуру. Составить программу, используя логические связки.
ребят

3 Информация - совокупность сведений, знаний о чем-либо; сообщение - совокупность знаков , отображающих информацию.
4 Кодирование - зашифровка информации (перевод языка на азбуку Морзе),декодирование - расшифровка( расшифровка сообщения с азбуки Морзе,к примеру, на русский язык).
5 Кол-во информации предотвращает неопределенность.Неопределенность информации характеризуется энтропией, хаосом.
6 Актуализация информации - совокупность действий по обновлению, расширению, восстановлению информации для эффективности  ее использования.
7 Актуальность, полнота, доступность,понятность (т.е. понятна для восприятия) 

Var a,b:longint;
function sum (n:integer):integer;
  var s:integer;
  begin
     s:=0;
     while (n<>0) do
       begin
         s:=s+n mod 10;
         n:=n div 10;
       end;
     sum:=s; 
  end;
  begin
    write ('A = ');
    readln (a);
    write ('B = ');
    readln (b);
    if sum(a) > sum(b) then
       writeln ('Сумма цифр 1ого числа больше на ',sum(a)-sum(b))
    else if sum(b) > sum (a) then 
       writeln ('Cумма цифр 2ого числа больше на ',sum(b)-sum(a))
    else writeln ('Сумма цифр 1ого числа равна сумме цифр 2ого числа');
    readln;
  end.