Напишите программу, которая принимает у пользователя три строки -- взаимосвязанные прилагательное, существительное и глагол и выводит на экран все варианты фраз с использованием введённых слов.

Sample Input 1:
зеленые листья распускаются
Sample Output 1:
зеленые листья распускаются
зеленые распускаются листья
листья зеленые распускаются листья распускаются зеленые
распускаются зеленые листья распускаются листья зеленые
Sample Input 2:
пушистый снег падает
Sample Output 2:
пушистый снег падает пушистый падает снег
снег пушистый падает
снег падает пушистый
падает пушистый снег
падает снег пушистый

Time Limit: 15 секунд

str1 = input()

str2 = input()

str3 = input()

print(str1, str2, str3)

print(str1, str3, str2)

print(str2, str1, str3)

print(str2, str3, str1)

print(str3, str1, str2)

print(str3, str2, str1)

program xxx; var i, j, k, n, p, s : integer;       a : array [1..20] of integer; begin  write ('введите количество инверсий -');   readln(k);   write ('введите количество ламп -');   readln(n);   for i: =1 to n do      a[i]: =0;   for i: =1 to k do      begin          write ('введите инверсию p-');           readln(p);           j: =p;           while j< =n do              begin                  if a[j]=0 then a[j]: =1 else a[j]: =0;                   j: =j+p              end      end;   s: =0;   for i: =1 to n do      if a[i]=1 then s: =s+1;   write ('ламп горит -', s);   readlnend.

программа на языке паскаль

program pr;

s: string;

begin

readln (s);

if length(s) mod 2=0 then writeln ('четное') else writeln('не четное');

readln;

end.