Вывести все числа от 1 до N, являющиеся палидромами

Решение палидромов на Turbo Pascal 7.0 (соблюдаются все твои условия задачи и пожелания преподавателя: ни функций, ни массивов). На Си перевести не хватило что-то знаний.
вот прямая ссылка на скачивание файла "my-files.ru/b9qodk"

uses crt;
var i, j, g, m, n, n1, n2, kolvo_pal, kol_simbol: Longint;
jp: boolean;
begin
clrscr;
kolvo_pal:=0;
writeln (' Введите число 1 <= N <= 2000000000:');
write (' для N = ');
readln (n1);
if n1=0 then exit;
writeln (' палидромы:');
n:=n1;
if n1<10 then for i:= 1 to n1 do
begin
kolvo_pal:=n1-9;
write (i: 8);
end
else
begin
for i:=1 to 9 do write (i: 8);
for n:=10 to n1 do
begin
n2:=n;
kol_simbol:=0;
while n2>0 do
begin
inc(kol_simbol);
n2:=n2 div 10;
end;
n2:=n;
jp:=false;
for j:=1 to trunc(kol_simbol/2) do
begin
m:=1;
for g:=1 to kol_simbol-1 do
m:=m*10;
if (n div m) = (n mod 10) then
begin
n:= (n - (n div m)*m - (n mod 10)) div 10;
kol_simbol:=kol_simbol-2;
jp:=true
end
else jp:=false;
end;
n:=n2;
if jp then
begin
write (n: 8);
kolvo_pal:=kolvo_pal+1;
end;
end;
end;
writeln;
writeln (' Кол-во палидромов = ', kolvo_pal+9:5);
readln;
end.

что за язык программирования-то?
самое простое: рекурсивно пробежаться по левым частям:
1
10
100
...
11
110
...
достраивая симметрично правые и проверяя, не вышли ли за N

вот программа палиндрома
program programm;
uses crt;
var n, m, a, i: integer;
begin
clrscr;
writeln('vvedite n<=9999');
readln(n);
m:=n; a:=0;
for i:=1 to 4 do
begin
a:=a*10+ m mod 10; m:= m div 10;
end;
if a=n
then writeln('DA!')
else writeln('NO');
readln;
end.

program chisla;
uses crt;
var a,b,i:integer;

Function preo(x:integer):integer;
var
st,st1:string;
j:integer;
begin
Str(x, St);
For j:=1 to length(st) do
begin
st1:=st1+copy(st,(Length(st)),1);
delete(st,(Length(st)),1);
end;
preo:=StrToInt(st1);
st:='';
st1:='';
end;

begin
writeln;
readln(a);
writeln();

for i:=1 to a do
if i = preo(i) then
writeln(i);
end.