Пожалуйста, сделайте)))

program raf105;

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

i,j,l:integer;

begin

write('Введите прилагательное: ');

readln(a[1]);

write('Введите существительное: ');

readln(a[2]);

write('Введите глагол: ');

readln(a[3]);

writeln;

for i:=1 to 3 do

 for j:=1 to 3 do

   for l:=1 to 3 do

     if (a[i]lt;gt;a[j]) and (a[i]lt;gt;a[l]) and (a[j]lt;gt;a[l]) then

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

end.

Язык PascalABC