Снова нужна помощь с программой

[xardlin]

Снова нужна помощь с программой

Перевернуть введенную с клавиатуры фразу. Паскаль.

 

[Vladimir_S]

Перевернуть введенную с клавиатуры фразу. Паскаль.

Ну что же - предельное напряжение умственных сил, бессонная ночь и - вот:

Var
 S:String;
 i:Byte;
Begin
 Writeln('Enter the string:');
 Readln(S);
 For i:=Length(S) downto 1 do Write(S[i]);
 Readln
End.