var
x: array of string;
y: string;
begin
readln(y);
x := y.Split(' ');
y := x[0];
foreach w: string in x do
if (y.Length <= w.Length) then
y := w;
writeln(y);
<span>end.</span>
Компьютеры обычно не разрешают называть файлы с этими символами: " № # % ^ & | \ / ' ~
Если тебе не сложно отметь пож этот ответ лучшим
Строка формул предназначена для отображения и редактирования содержимого активной ячейки
<span>3. Вибрати значок програми<span>
</span><span>1. Увімкнути живлення монітора та системного блока</span><span>
</span><span>6. Дочекатися завантаження вікна програми</span><span>
</span><span>4. Дочекатись, доки вказівник миші набере вигляду
стрілки</span><span>
</span><span>5. Двічі клацнути кнопкою миші</span><span>
</span><span>10. Клацнути на кнопці ПУСК</span><span>
</span><span>9. Дочекатись, доки вікно програми закриється</span><span>
</span><span>11. Обрати кнопку ЗАВЕРШЕННЯ РОБОТИ</span><span>
</span><span>12. Дочекатись, поки індикатор на системному блоці
не погасне</span><span>
</span><span>7. У вікні програми виконати вказівку ЗАКРИТИ</span><span>
</span><span>2. Дочекатись, доки відобразиться РОБОЧИЙ СТІЛ</span><span>
</span><span>8. <span>Якщо не передбачено окремого способу завершення
роботи програми, натиснути Закрити.</span></span></span>