//PascalABC.NET
begin
readseqinteger('Введите 15 чисел:',15).Where(x -> Odd(x)).Average.Println;
end.
<span>в том что информация подаёться дискретно:)</span>
Pascal
Как-то так. Матрица заполнена не полностью, но, как я понял, этого и не нужно делать.
Например при x=-1 y=0
Program gt;
var x,y:real;
begin
readln(x,y);
if(y<=x)and(y>=-x)and(x*x+y*y<=1)then writeln('YES') else
writeln('NO');
end.