Пример кода на Паскале:

program ExtractLetters;
var
text, letter: string;
i: integer;
begin
// Ввод исходной строки текста
writeln('Введите текст:');
readln(text);
// Поиск букв, входящих в слова длиной более одного символа
writeln('Буквы, входящие в слова длиной более одного символа:');
for i := 1 to length(text) - 1 do
begin
if (text[i] <> ' ') and (text[i+1] <> ' ') then
begin
letter := text[i];
writeln(letter);
end;
end;
end.

Этот код считывает строку текста и находит буквы, входящие в слова длиной более одного символа, выводя их по одной на экран.