1. примерно как то так.

var a,b,ch:integer;

begin

readln(ch);

a:=ch div 100;

b:=ch mod 10;

if (a=b) then writeln('Chislo polindrom')

else

writeln('Ne polindrom');

end.

2. условие If r >= sqrt(sqr(x)+sqr(y)) then в круге//