{* Задача 244 *}

Unit ZADACH244;
Interface
Implementation
Begin
 writeln('Даны натуральное число n, символы s1,… , sn. Будем рассматривать слова, образованные символами, входящими в последовательность s1, …, sn (см. задачу 269), считая при этом, что количество символов в каждом слове не превосходит 15. Удалить из s1,…, sn все слова с нечетными порядковыми номерами и перевернуть все слова с четными номерами. ');
End.

Program zadach244;

Uses zadach244.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  i   : integer;
  j   : integer;
  nom : integer;
  n   : integer;
  s1  : String;
  s2  : String;
  s3  : String;
Begin
  write('n=');
  readln(n);
  writeln('введите последовательность символов');
  readln(s1);
  s1 := s1 + ' ';
  nom := 1;
  For i := 1 To length(s1) Do {* Цикл для i => [1 .. length(s1)] *}
    If s1[i]' ' Then
      s2 := s2 + s1[i]
    Else Begin
      If (s2'') And odd(nom) Then
        delete(s1, i - length(s2), length(s2));
  nom := nom + 1;
  s2 := '';
End;
For i := 1 To length(s1) Do {* Цикл для i => [1 .. length(s1)] *}
  If s1[i]' ' Then
    s2 := s2 + s1[i]
  Else If s2'' Then
Begin
  For j := length(s2) Downto 1 Do
    s3 := s3 + s2[j];
  s3 := s3 + ' ';
  s2 := '';
End;
writeln(s3);
readln
End...