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]<>a[j]) and (a[i]<>a[l]) and (a[j]<>a[l]) then
writeln(a[i],' ',a[j],' ',a[l]);
end.
Язык PascalABC