Определить принадлежит ли точка м(x, y) заданной фигуре:

нет так как углы у них разные

Pascalabc.net var   str : string;   i : integer; begin   write('введите строку: ');   readln(str);       for i : = 1 to length(str) do     case str[i] of         'а' : str[i] : = 'б';         'а' : str[i] : = 'б';         'б' : str[i] : = 'а';         'б' : str[i] : = 'а';     end;         writeln(str);   end.

// pascalabc.net 3.2, сборка 1367 от 20.12.2016 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(10,1,10); a.println;   writeln('среднее элементов с четным значением: ',       a.where(x-> x.iseven).average);   writeln('среднее элементов с четным номером: ',       a.where((x,i)-> i.isodd).average) end. пример 9 1 4 8 2 1 10 7 8 5 среднее элементов с четным значением: 6.4 среднее элементов с четным номером: 4.4