Составьте программу для получения слова-перевёртыша в Pascal (пример: школа — алокш или алла — алла).

pascal
program Perevertysh;

var
  s, rev: string;
  i: integer;

begin
  writeln('Введите слово:');
  readln(s);

  rev := '';

  for i := length(s) downto 1 do
    rev := rev + s[i];

  writeln('Слово-перевертыш: ', rev);
end.

Программа считывает слово в переменную s, затем проходит по символам с конца строки к началу и добавляет каждый символ в новую строку rev.

Например:

Введите слово:
школа
Слово-перевертыш: алокш

Для слова-палиндрома результат не изменится:

Введите слово:
алла
Слово-перевертыш: алла