Ещё проще задача, вывести все числа палиндромы от 100 до 1000.

хочу обратить внимание на строку {a := maxlongint;} она закомментирована, выводит максимальное число типа longint, для конкретной машины.

program chislo_palindrom;
var
i : longint;
s, s1 : string;
a : longint;
i1 : integer;
begin
{a := maxlongint;} // раскоментируй и будет счастье
a := 1000; // а эту строку закоментируй

writeln('Для этой машины максимальное целое число = ', a);
writeln('Выведем цифры палиндромы от 100 до ', a);
i := 100;
writeln('Чтобы начать нажми enter');
readln;
repeat
s := ''; s1 := '';
str(i, s); // преобразовываем число в строку
for i1 := length(s) downto 1 do // переворачиваем строку, если совпадёт с первоначальной
begin // то число палиндром
s1 := s1 + s[i1];
end;

if s = s1 then write(s, ' ');
i := i + 1;
until i = a;


readln;
end.

Скачать решение.