. Используя заданные значения p=7, q=11 e=37 d=13 ( зашифровать и дешифровать сообщения m1=8, m2=18, m3=55

// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n,p:integer;
  var s:string;
  for var a:=1 to 9 do
    for var b:=0 to 9 do
      for var c:=0 to 9 do begin
        n:=100*a+10*b+c;
        s:=(n*n).ToString.Right(3);
        p:=Pos(a.ToString,s);
        if p>0 then begin
          Delete(s,p,1);
          p:=Pos(b.ToString,s);
          if p>0 then begin
            Delete(s,p,1);
            if s=c.ToString then Write(n,'(',n*n,')',' ')
            end
          end
        end
end.

Результат
205(42025) 376(141376) 421(177241) 625(390625) 963(927369)

1.Создайте макрос с именем (к примеру) "Моё меню"

2.В этом макросе добавляем пункты меню следущим образом: Для каждого пункта меню, создаём "Вложенный макрос". Название каждого вложенного макроса - будет названием пункта меню.

3.В каждом вложенном макросе должна быть хотя бы одна команда. Хотя бы просто "Примечание". Иначе, он в списке не появится.

4.Чтобы вставить разделитель, называем нужный вложенный макрос именем "-" (минус) и добавляем примечание

5.Чтобы сделать быструю кнопку к пункту меню, перед нужной буквой в названии макроса вставляем "&"

6.Ну и естественно, в каждом вложенном макросе реалиуем необходимый функционал либо через макрокоманды, либо через "ЗапускПрограммы"

Объяснение: