Program chik;
var x,y:real;
begin
readln(x,y);
if((y<=2)and(x>=-3)and(x<=2)and(y>=0))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>
211 в шестнадцатеричной системе счисления D3
211 в двоичной системе счисления 11010011
211 в восьмеричной системе счисления3 23
Совокупность сведений об объекте процесс или явление называется описанием
//на каком-то старье
var
i: byte;
s: string;
begin
read (s);
for i:=1 to length (s) do if upcase(s[i])='А' then s[i]:='о';
write (s);
end.