Разработайте программу которая запрашивает три строковые величины - взаимосвязанные прилагательное,существительное и глагол .а затем печатает все варианты фраз с использованием введенных слов

Var a,b,c:string;
begin
write('Введите галагол', ' ');
readln(a);
write('Введите прил.', ' ');
readln(b);
write('Введите сущ.', ' ');
readln(c);
writeln(b,' ',c,' ',a);
writeln(b,' ',a,' ',c);
writeln(a,' ',b,' ',c);
writeln(a,' ',c,' ',b);
writeln(c,' ',a,' ',b);
writeln(c,' ',b,' ',a);
end.

Pascal ABC

Код:

var

  a: array [1..3] of string;

  i, j, k: integer;

begin

    readln(a[1],a[2],a[3]);

    for i := 1 to 3 do

        for j := 1 to 3 do

            for k := 1 to 3 do

                if (i <> j) and (i <> k) and (j <> k) then

                   writeln(a[i], ' ', a[j], ' ', a[k]);

end.

Пример работы:

Ввод:

КРАСНЫЕ

ЛАНДЫШИ

ЦВЕТУТ

Вывод:

КРАСНЫЕ ЛАНДЫШИ ЦВЕТУТ

КРАСНЫЕ ЦВЕТУТ ЛАНДЫШИ

ЛАНДЫШИ КРАСНЫЕ ЦВЕТУТ

ЛАНДЫШИ ЦВЕТУТ КРАСНЫЕ

ЦВЕТУТ КРАСНЫЕ ЛАНДЫШИ

ЦВЕТУТ ЛАНДЫШИ КРАСНЫЕ