Все 5-буквенные слова, составленные из 5 букв а, к, л, о, ш, записаны в алфавитном порядке. вот начало списка: 1. 2. 3. 4. 5. сколько всего 5-буквенных слов в этом списке?

Надо посчитать сколько различных слов длиной 5 букв можно составить имея набор из 5 разных букв с повторениями. 5*5*5*5*5 = 3125 разных вариаций

4program months; {$apptype console} uses  sysutils; var  i: integer; begin  write ('vvedite nomer mesyaca');   writeln(i);   readln(i);   case i of    1: writeln ('january-1,2,3,4,5,6,7,8');     2: writeln ('february-22,23');     3: writeln ('march-8');     4: writeln ('april-net');     5: writeln ('may-1,8,9');     6: writeln ('june-12');     7: writeln ('july-net');     8: writeln ('august-net');     9: writeln ('september-net');     10: writeln ('october-net');     11: writeln ('november-4,5,6');     12: writeln ('december-net');     end;     readln   { todo -ouser -cconsole main : insert code here }end. там даты (номера) праздничных дней можете подправить, как вам надо!

program v5;

begin

writeln('█▀█░░█░█░█▀█░█▀█░█░░░█░█▀▄▀█');

writeln('█░▄░░█▀█░█░█░█▀▄░█▀█░█░█░█░█');

writeln('▀▀▀░░▀░▀░▀▀▀░▀▀▀░▀▀▀░▀░▀░░░▀');

writeln('░░░░░░░░░░░░░░░░░░░░░░░░░░░░');

writeln('░█▀▀░█▀█░░█▀█░░█▀█░█▀▄▀█░░█░');

writeln('░█░░░█░█░░█░█░░█░█░█░█░█░░▀░');

writeln('░▀░░░▀▀▀░█▀▀▀█░▀▀▀░▀░░░▀░░▀░');

writeln('░░░░░░░░░░░░░░░░░░░░░░░░░░░░');

writeln('░░░░░░░░░░░░▄██▄░░░░░░░░░░░░');

writeln('░░░░░░░░░░▄██████▄░░░░░░░░░░');

writeln('░░░░░░░░▄████░█████▄░░░░░░░░');

writeln('░░░░░░▄█████████░████░░░░░░░');

writeln('░░░░░░░░░▄██░█████▄░░░░░░░░░');

writeln('░░░░░░░▄████████████▄░░░░░░░');

writeln('░░░░░▄███░███████░████▄░░░░░');

writeln('░░░▄████████░███████████▄░░░');

writeln('░░░░░░▄█████████░████▄░░░░░░');

writeln('░░░░▄████░█████████░███▄░░░░');

writeln('░░▄██████████░███████████▄░░');

writeln('▄█████░█████████████░██████▄');

writeln('▀▀▀▀▀▀▀▀▀▀▀▀████▀▀▀▀▀▀▀▀▀▀▀▀');

writeln('░░░░░░░░░░░░████░░░░░░░░░░░░');

writeln('░░░░░░░░░░░░░░░░░░░░░░░░░░░░');

writeln('░░█▀▀▀█░█▀▀▀▀█░█▀▀▀█░█▀▀▀▀█░');

writeln('░░█▄█░█░█░██░█░█▄█░█░█░██░█░');

writeln('░░█░▄██░█░██░█░█░▄██░█░██░█░');

writeln('░░█▄▄▄█░█▄▄▄▄█░█▄▄▄█░█▄▄▄▄█░');

end.