Итак на основе предыдущей программы можно разработать программу которая бы писала заданное слово наоборот.
Сейчас расскажу о Downto. Это полная противоположность TO. То есть если ТО идет с начала до конца то Downto с конца до начала. Рассмотрим предпоследнюю строку. Значение s тут меняется
Итак программа
var s:string;
var i:integer;
begin
write ('Ваше слово: ');
readln (s);
for i:=Length (s) downto 1 do write (s [i]);
end.
Тут мы проси ввести слово и начинаем писать символы с конца слова на одной строке. Вообще для полноценной работы их надо сложить (символы) чтобы получить слово а не набор букв, но об этом позже.
| 
