Вводится слово из 4 букв. напечатать "перевернутое" слово. пример: 'мама' - 'амам' . в программе паскаль .

Var s: string; 
      i: integer; 
    begin 
         readln(s);   
         for i:=length(s) downto 1 do write(s[i]);
    end.

* Если дано слово из 4 букв, то " length(s) " можете заменить на 4.