Ответ:
Приложил скрин, т.к тут выглядит плохо
ꟷꟷꟷꟷꟷꟷ
Не забывайте сказать "Спасибо"! и, если ответ удовлетворил, то выберите его как "Лучший"
Бодрого настроения и добра!
Успехов в учебе!
Из 7 частей состоит окно программы скренч
Ввод чисел продолжается, пока не введено число 100.
Var
A:integer;
Begin
WriteLn('Введите числа');
Read(A);
While A<>100 do
Begin
Read(A);
End;
WriteLn('Ввод окончен');
End.
Удаление слова при его выделении