1.Создайте макрос с именем (к примеру) "Моё меню"
2.В этом макросе добавляем пункты меню следущим образом: Для каждого пункта меню, создаём "Вложенный макрос". Название каждого вложенного макроса - будет названием пункта меню.
3.В каждом вложенном макросе должна быть хотя бы одна команда. Хотя бы просто "Примечание". Иначе, он в списке не появится.
4.Чтобы вставить разделитель, называем нужный вложенный макрос именем "-" (минус) и добавляем примечание
5.Чтобы сделать быструю кнопку к пункту меню, перед нужной буквой в названии макроса вставляем "&"
6.Ну и естественно, в каждом вложенном макросе реалиуем необходимый функционал либо через макрокоманды, либо через "ЗапускПрограммы"
Объяснение:
begin
k:=0;
writeln('Введите число x');
read(x);
while x>0 do begin
if x mod 10 mod 2<>0 then k:=k+1;
x:=x div 10;
end;
writeln(k);
end.