Дан целочисленный массив размера n. вывести все содержащиеся в данном массиве четные числа в порядке убывания их индексов, а также их количество k.

// pascalabc.net 3.3, сборка 1547 от 07.10.2017 // внимание! если программа не работает, обновите версию! begin;   var a: =arrrandom(readinteger('n='),1,99); a.println;   var k: =a.where(x-> x.iseven).reverse.println.count;   writeln('k=',k) end. пример n= 15 25 97 33 31 92 87 70 44 75 65 26 77 48 84 39 84 48 26 44 70 92 k=6

1)2 детей переплывут первыми

2) 2 ой возвращается

3)забирает взрослого( сам высажевается

4)(взрослый высажевается)сын плывет за другим

5) они возвращаются

var

  a: array[1..5]of integer;

  i: integer;

begin

  for i: =1 to 5 do read(a[i]);

for i: =1 to 5 do write(a[i],' ');

writeln;

for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);

writeln;

end.