Десять итераций увеличения s на 2
s = 20
Файл во вложении направляю на вам в группу для для покупок и в в
Program chik;
var x,y:real;
begin
readln(x,y);
if ( (y<=0) and (x>=-1) and (x<=1) and (y>=-2) ) or
( (y>=0) and (x>=-1) and (x<=1) and (y<=1) and (x*x+y*y<=1))then
writeln('ПРИНАДЛЕЖИТ') else writeln('Не принадлежит');
<span>end.</span>