Найти сумму всех трехзначных чисел, в десятичной записи которых нет четных цифр

 var i,j,k,s:integer;
      begin
      s:=0;
      for i:=1 to 9 do
      for j:=1 to 9 do
      for k:=1 to 9 do
      if (odd(i))and(odd(j))and(odd(k)) then s:=s+(i*100+j*10+k);
      writeln(s);
      readln;
    end.

if  (sqr(x[i]-a)+sqr(y[i]-b)< sqr(r)) то точка x[i],y[i] входит в круг

uses graph;
const n=100;
var i,x,y,r,c:integer;
begin
randomize;
initgraph(x,y,'');
for i:=1 to n do
 begin
  r:=random(100)+20;{радиеус}
  x:=random(getmaxX-2*r)+r;{чтобы окружности не выходили за границы экрана}
  y:=random(getmaxY-2*r)+r;
  c:=random(15)+1;{цвет, кроме черного}
  setcolor(c);
  Circle(x,y,r);
 end;
readln
end.

uses crt;
const nmax=10;
var i,n:byte;
    f,s,x:real;
    a:array[0..nmax] of real;
begin
clrscr;
repeat
write('Введите порядок многочлена от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
write('Введите значение аргумента x=');
readln(x);
writeln('Введите ',n+1,' коэфф. многочлена степени ',n);
for i:=0 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
f:=1;{x^0=свободный член}
s:=a[n];{сумма начиная со свободного члена}
for i:=1 to n do
 begin
  f:=f*x;{степени с конца}
  s:=s+a[n-i]*f;{сумму наращиваем с конца к началу}
 end;
write('S=',s:0:5);
readln
end.