{* Задача 4 *}

Unit ZADACH4;
Interface
Implementation
Begin
 writeln('Вводится строка символов до точки. Выведите ее на экран монитора в обратном порядке. Например, если была введена строка – ABCDEF, выведется – FEDCBA.');
End.

Program zadach4;

Uses zadach4.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Необходимые переменные *}
  i  : integer;
  j  : integer;
  m  : integer;
  k  : char;
  st : String;
Begin
  clrscr; {* Очистка экрана *}
  writeln ('введите строку символов');
  readln(st);
  writeln('перевернутая строка');
  i := length(st);
  m := i;
  For j := 1 To (i Div 2) Do {* Переменная j увеличивается с 1 до (i *}
  Begin
    k := st[m];
    st[m] := st[j];
    st[j] := k;
    m := m - 1;
  End;
  writeln(st);
End.