С клавиатуры вводится слово. Получить новое слово, образуемое путем прочтения исходного слова, начиная с его конца.
Pascal ABC

Var   S,B:string;   i:integer;BeginWrite('Введите строку: ');ReadLn(S);For i:= Length(S) downto 1 do    B:=B+S[i];WriteLn('Перевёрнутая строка: ',B);End.