Создать массив и вывести его элементы в обратном порядке , кратные 5.элементы массива вводятся через список​

// pascalabc.net 3.0, сборка 1088 function inita(n: integer): array of integer; begin   result: =arrrandom(n,-31,45) end; procedure geta(var a: array of integer); begin   a: =inita(readinteger('количество элементов в массиве а: ')); end; procedure putm(c: char; a: array of integer); begin   writeln('*** массив '+c+'[',a.length,'] ***',#13#10,a); end; function formb(a: array of integer): array of integer; begin   result: =range(0,a.length-1,2).select(x-> a[x]).toarray end; function minel(a: array of integer): integer; begin   result: =a.min end; begin   var ma: array of integer;   geta(ma); putm('a',ma);   var mb: =formb(ma); putm('b',mb);   writeln('минимальный элемент в массиве в равен ',minel(mb))  end. тестовое решение: количество элементов в массиве а: 15 *** массив a[15] *** [-22,0,-9,17,14,3,38,-18,-28,-17,28,13,1,1,26] *** массив b[8] *** [-22,-9,14,38,-28,28,1,26] минимальный элемент в массиве в равен -28

// pascalabc.net 3.0, сборка 1088 begin   var n: =readlnstring('введите число: ');   n: =n.where(x-> x in ['0'..'9']).joinintostring('');   writeln('принятое число: ',n);   var a: =readlnchar('введите искомую цифру: ');   writeln('количество цифр в числе равно ',n.length);   if n[1]=n[n.length] then writeln('первая цифра равна последней')   else writeln('первая цифра не равна последней');   if pos(a,n)> 0 then writeln('цифра ',a,' входит в число')   else writeln('цифра ',a,' не входит в число') end. тестовое решение: введите число: тут спрятано 456. по частям 764 наше 03число принятое число: 45676403 введите искомую цифру: 0 количество цифр в числе равно 8 первая цифра не равна последней цифра 0 входит в число "школьный вариант" // pascalabc.net 3.0, сборка 1088 var   n: longint;   i,k: integer;   sn: string;   a: char; begin   write('введите число: '); readln(n);   str(n,sn);   write('введите искомую цифру: '); readln(a);   k: =length(sn);   writeln('количество цифр в числе равно ',k);   if sn[1]=sn[k] then writeln('первая цифра равна последней')   else writeln('первая цифра не равна последней');   if pos(a,sn)> 0 then writeln('цифра ',a,' входит в число')   else writeln('цифра ',a,' не входит в число') end. тестовое решение: введите число: 3476573 введите искомую цифру: 7 количество цифр в числе равно 7 первая цифра равна последней цифра 7 входит в число