Разработайте программу, которая запрашивает две буквы, а затем печатает все варианты слов с использованием введённых букв (буквы могут повторяться, а слова могут не иметь смысла. Например, «аа» – считается тоже словом).Только к...

 1. если слово из 2-х букв var a,b:char; begin readln(a,b); writeln(a,b); writeln(b,a); writeln(a,a); writeln(b,b); end. 2, если не из двух букв тут сначала вводится n  - максимальная длина слова, а уже потом 2 буквы   var a,b:char; n:integer; procedure gen(i:integer;s:string); begin if i>n then exit; if i<>0 then writeln(s); gen(i+1,s+a); gen(i+1,s+b); end; begin readln(n); readln(a,b); gen(0,''); end.