СРОЧНО ДЗ ПО ИНФОРМАТИКЕ

Вот пример программы на языке Паскаль, которая запрашивает ввод слова «ЭНЦИКЛОПЕДИЯ», затем выводит слово из пяти букв, входящих в это слово (каждую букву можно использовать только один раз), и выводит код первой буквы полученного слова с пояснением.

program FiveLetters;

uses crt;

var
inputWord, outputWord: string;
i, count: integer;
used: array[1..255] of boolean;
firstCharCode: integer;

begin
clrscr;
write('Введите слово (ЭНЦИКЛОПЕДИЯ): ');
readln(inputWord);

// Приведём к верхнему регистру для надёжности
inputWord := UpperCase(inputWord);

// Инициализация массива использованных символов
for i := 1 to 255 do
used[i] := False;

outputWord := '';
count := 0;

// Проходим по введённому слову и добавляем уникальные буквы в выходное слово
for i := 1 to length(inputWord) do
if (not used[Ord(inputWord[i])]) and (inputWord[i] <> ' ') then
begin
outputWord := outputWord + inputWord[i];
used[Ord(inputWord[i])] := True;
count := count + 1;
if count = 5 then
break;
end;

writeln('Полученное слово из 5 букв: ', outputWord);

if length(outputWord) >= 1 then
begin
firstCharCode := Ord(outputWord[1]);
writeln('Код первой буквы "', outputWord[1], '" = ', firstCharCode, ' (код символа в таблице ASCII/Unicode)');
end
else
writeln('Не удалось сформировать слово из 5 букв.');

readln;
end.


В этой программе:
- Сначала пользователь вводит слово.
- Затем программа собирает пять уникальных букв из этого слова в порядке их появления.
- Далее выводит полученное пятибуквенное слово.
- Выводится числовой код первой буквы этого слова с пояснением.

Программа допускает, что слово вводится правильно и использует заглавные буквы для упрощения.

➡️ Хотите, я сделаю версию программы, которая случайным образом выбирает буквы из слова?