Перевернуть слово [Паскаль]

[murotvorez]

Помогите написать програму, которая поворачивает слово, если оно имеет чётное количество букв!!!!Заранее СПАСИБО!!!!

[_-Re@l-_]

Помогите написать програму,

Помочь? Выкладывайте свои наработки. Их отсутствие является дорогой сюда.

[Niro]

которая поворачивает слово

как переворачивает? пример приведите

[murotvorez]

Ну ели допустим есть слово "пара" то "арап"!!!

[Niro]

ну тогда так

for i:=length(s1) donwto 1 do
 s2:=s2+s1[i]
writeln(s2);

s1 - исходная строка
s2 - новая строка

[murotvorez]

А можете написать всю програму!!!! Просто мне сделать ее жизненно необходимо!!!!!!

[Niro]

Пожалуйста вот держите

uses crt;
   var s1,s2: string;
begin
   clrscr;
   writeln('Введите слово');
   readln(s1);
   if (length(s1) mod 2)=0 then 
                                     for i:=length(s1) donwto 1 do
                                        s2:=s2+s1[i]
   if s2<>'' then writeln(s2) else writeln('слово имеет нечетное кол-во букв');
   readln;
end.

[murotvorez]

Огромное СПАСИБО!!!!!!!!!!!!