const r1 = 10; r2 = 8; var x, y : real; b1, b2: boolean; begin Write (' x = '); ReadLn(x); Write (' y = '); ReadLn (y); b1:=(SQR(x)+SQR(y)-SQR(r1)) <=0; b2:=(SQR(x) + SQR(y) - SQR(r2))>=0; if (b1 and b2) then WriteLn (' Принадлежит') else WriteLn (' Не принадлежит'); ReadLn; end.