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

var
a,b,i,c,j:integer;
begin
writeln('a,b');
readln(a,b);
for i:=a to b do begin
c:=0;
for j:=1 to i do
if i mod j=0 then inc(c);
if c=2 then write(i,' ');
end;
end.

var
n,c,j:integer;
begin
writeln('N');
readln(n);
for j:=1 to n do
if n mod j=0 then begin
inc(c);
write(j,' ');
end;
writeln('kol-vo : ',c);
end.

var
n,c,j:integer;
begin
writeln('N');
readln(n);
for j:=1 to n do
if n mod j=0 then
inc(c);
if c<=2 then writeln('yes')
else writeln('no');
end.

for i:=111 to 999 do
 begin
   a:=i div 100;
   b:=i div 10 mod 10;
   c:=i mod 10;
   if (a=c) and (b=c) then write(i,' ');
 end;

uses crt;
var n,i:integer;
    s,t:real;
begin
clrscr;
write('n=');
readln(n);
s:=0;
t:=1;
for i:=1 to n do
 begin
  t:=t*2/i;
  s:=s+t;
 end;
write('S=',s:0:5);
readln
end.