1*10^1+3*10^0+2*10^-1+1*10^-2
1*8^2+2*8^1+3*8^0+2*8^-1
1*16^1+2*16^0+3*16^-1
Var a,b,r:integer;
begin
readln(a,b);
if (a<0) and (b<0) then r:=sqr(a)+sqr(b)
else r:=abs(a-b);
write(r);
end.
If (x>=-5) and (x<5) then label1.caption
(Принадлежит') else Label1.caption ('Не
принадлежит');
Х=1 Принадлежит