вкажіть порядок додання кнопки на панелі інструментів а) вкладка ,, Команда,,
б) пункт горизонтального меню ,,Сервіс,,
в) вибрати категорію команди
г) пункт спадаючого меню ,,Настройки,,
д) перенести кнопку команди на панель інструментів шляхом перетаскування
е) вибрати кнопку команди​

Восприятие информации человеком — это ознакомление с явлениями и предметами посредством их воздействия на различные органы чувств. Анализируя результат воздействия того или иного предмета или ситуации на органы зрения, слуха, обоняния, вкуса и осязания, индивид получает определенное представление о них. Таким образом, основа в процессе восприятия информации — пять наших органов чувств. При этом активно задействованы опыт человека и ранее полученные знания. Обращаясь к ним, можно отнести полученную информацию к уже известным явлениям или выделить из общей массы в отдельную категорию восприятия информации базируются на некоторых процессах, связанных с психикой человека: - Читайте подробнее на
мышление (увидев или услышав предмет или явление, человек, начиная мыслить, осознает, с чем он столкнулся); речь (возможность назвать объект восприятия); чувства (различные виды реакций на предметы восприятия); воля человека организовывать процесс восприятия).

Программа Вот:
Program z1;Var a,b,c,d,k:integer;BeginWriteln('Введите трехзначное число');REadln(a);While a<>0 do beginWriteln('Введите трехзначное число');REadln(a);b:=a div 100 mod 10;c:=a div 10 mod 10;d:=a mod 10;if b+c+d div 10 >0 then writeln('Сумма цифр- двузначное число') else writeln ('Нет, сумма цифр не двузначное число');if b*C*D div 100 >0 then writeln('Произведение цифр- терхзначное число') else writeln ('Нет, произведение цифр не трехзначное число число');Writeln ('Введите любое число');Readln (k);If b*c*d>k then writeln('Произведение цифр больше числа') else writeln('Произведение меньше числа');if B+c+d div 5 =0 then writeln('Сумма цифр числа кратна 5') else writeln ('Сумма цифр не кратна 5');if B+c+d div k =0 then writeln('Сумма цифр числа кратна числу, введенному с клавиатуры') else writeln ('Сумма цифр не кратна числу, введенному с клавиатуры');End;End. 
Есть маленькая проблема в начале, не помню как прописывать, поэтому число первый раз нужно вводить 2 раза, если не устраевает, можете воспользоваться другими ресурсами