1) Составить фразу "волчий аппетит" из слов "аптека", "ствол", "чайник".2) Вывести на экран первую букву третьего слова данного текста. Если нет третьего слова, то вывести сообщение "ошибка".

волчий аппетит все просто ))

program e1; const   s1 = 'аптека';   s2 = 'ствол';   s3 = 'чайник'; var   s: string; begin   s := concat(Copy(s2, 3, 3), s3[1], s3[5], s3[3], ' ');   s := Concat(s, Copy(s1, 1, 2), s1[2], s1[4], s1[3], s3[5], s1[3]);   writeln(s) end. Тестовое решение: волчий аппетит program e2; var   i, n, k: integer;   s: string; begin   writeln('Введите фразу, разделяя слова ровно одним пробелом');   readln(s);   n := length(s);   k := 0;   i := 1;   while (k < 2) and (i <= n) do   begin     if s[i] = ' ' then k := k + 1;     i := i + 1   end;   if k = 2 then writeln('Первая буква в третьем слове: ', s[i])   else writeln('Ошибка!') end. Тестовое решение: Введите фразу, разделяя слова ровно одним пробелом Просто тестовая фраза из пяти слов Первая буква в третьем слове: ф