zadach8.PAS

{* Задача 8 *}

Unit ZADACH8;
Interface
Implementation
Begin
 writeln('Имеются две таблицы, содержащие по 10 слов. Образовать новую, в которой должны чередоваться слова обеих таблиц.');
End.

Program zadach8;

Uses zadach8.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  s1 : Array [1..10] Of String;
  s2 : Array [1..10] Of String;
  s  : Array [1..20] Of String;
  i  : integer;
Begin
  For i := 1 To 10 Do {* Переменная i увеличивается с 1 до 10 *}
    readln (s1[i]);
  writeln; {* Вывод пустой строки *}
  For i := 1 To 10 Do {* Переменная i увеличивается с 1 до 10 *}
    readln (s2[i]);
  writeln; {* Пропускаем одну строку *}
  For i := 1 To 10 Do {* Цикл для i => [1 .. 10] *}
  Begin
    s[i] := s1[i];
    writeln(s[i]);
    s[i] := s2[i];
    writeln (s[i]);
  End;
  
End.