Сильно в пк не разбираюсь как это сделать чтобы приложения в меню пуск были длинными

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('n=');   if n> 10 then begin writeln('n> 10'); exit end;   var a: =readarrinteger(n);   writeln(10*'-');   var b: =a.where(k-> k.iseven or (k mod 13=;   var m: =0;   for var i: =0 to b.count-2 do       for var j: =i+1 to b.count-1 do           if (b[i]*b[j]) mod 26=0 then begin               println(b[i],b[j]); m+=1               end;   if m=0 then writeln('no') end. пример n= 6 29 38 16 39 41 7 38 39 16 39

Var     a: array[1..10] of integer;     i,j,n,k: integer; begin write('n = '); readln(n); write('введите массив a(',n,'): '); for i: = 1 to n do       read(a[i]); k: =0; for i: = 1 to n do       for j: = i+1 to n do               if (a[i]*a[j]) mod 26 = 0 then                       begin                       writeln(a[i],' ',a[j]);                       k: =1;                       end; if k=0 then writeln('no') end.