{* Задача 530 *}

Unit ZADACH530;
Interface
Implementation
Begin
 writeln('Дан текст, содержащий от 1 до 70 букв. Напечатать этот текст в обратном порядке.');
End.

Program zadach530;

Uses zadach530.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  a : String;
  b : String;
  i : integer;
  j : integer;
  n : integer;
Begin
  writeln('input stroka');
  read(a);
  b := '0' + '1' + '2' + '3' + '4' + '5' + '6' + '7' + '8' + '9';
  writeln(b);
  i := 1;
  While i11 Do
  Begin
    If a[i] = b[i] Then
      continue
    Else Begin
      writeln('isvinite, HE nogxogut');
    break;
  End;
  i := i + 1;
End;
  readln; {* Ждем подтверждения пользователя *}
  End..