Дан массив из 18 элементов заполнить его случайными числами. Вывести на экран элемент если он равен кубу его порядкового номера (те mas{4} = 64, тогда выводим на экран 64 и т. д). Решить в Pascal ABC

Program massiv123;   const n=30;   type massiv=array[1..n] of integer;   var i: integer; a: massiv;   begin  for i: =1 to n do  if i mod 3=0 then a[i]: =3                else a[i]: =1;   for i: =1 to n do  if a[i]=3 then a[i-1]: =2;   write('массив: ');   for i: =1 to n-1 do  write(a[i],',');   write(a[n],'; ');   end. если надо изменить кол-во цифр, то изменяйте в  const n=кол-во;

За основу взят алгоритм, изложенный в "bикипедии" и найденный по запросу "наибольшая общая подстрока". процедура переделана из c# реализации алгоритма, там же. // pascalabc.net 3.2, сборка 1325 от 19.10.2016 function maxsubstr(s1,s2: string): string; begin   var a: =new integer[s1.length+1,s2.length+1];   var u: =0; var v: =0;   for var i: =0 to s1.length-1 do       for var j: =0 to s2.length-1 do           if s1[i+1]=s2[j+1] then begin               a[i+1,j+1]: =a[i,j]+1;               if a[i+1,j+1]> a[u,v] then begin u: =i+1; v: =j+1 end               end;   result: =s1.substring(u-a[u,v],a[u,v]) end; begin   var a: ='trapperkaperkatrter';   var b: ='appekaperspamer';   writeln(maxsubstr(a,b)) end. тестовое решение kaper