Var a: string;
i: integer;
begin
readln(i);
a := IntToStr(i);
for i := length(a) downto 1 do
write(a[i]);
<span>end.
Как вариант. Строку считывать не стал, раз уж работаем с числом, то и вводится путь число:)</span>
По горизонтали:
4. Дерево
6. Таблица
8. Выражений
10. Конструктор
13. Условие
14. Маска
15. Ключ
16. СУБД
17. Связь
По вертикали:
1. Фильтр
2. Форма
3. Логический
5. Отчет
7. Запрос
9. Поле
11. Поиск
12. Запись
счётчик цикла должен быть целым, т. е. integer!!
728 в9с.с. = 7*9^2+2*9+8= 593 в 10с.с.