Question

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

Answer 1

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