Лак-рак , лама-рама, ложки-рожки, придумай с любой парой слов двустишье в рифму

на столе лежали ложки,

мама приготовила нам рожки.

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. тестовое решение: введите фразу, разделяя слова ровно одним пробелом просто тестовая фраза из пяти слов первая буква в третьем слове: ф

Var   n: integer; begin   write('введите номер месяца (1-12): ');   readln(n);   case n of       1: writeln('1 января - новый год; 7 января - рождество христово');       2: writeln('23 февраля - день защитника отечества');       3: writeln('8 марта - международный женский день');       5:           begin               writeln('1 мая - праздник весны и труда; ');               writeln('9 мая - день победы советского народа в великой отечественной войне 1941-19545 годов')           end;       6: writeln('12 июня - день россии');       11: writeln('4 ноября - день народного единства')   end end. тестовое решение: введите номер месяца (1-12): 6 12 июня - день россии