Даны натуральное число n, целые числа a1,a2,. найти количество и суммы тех членов данной последовательности, которые делятся на 5 и не делятся на 7 прошу написать программу в паскале

Const   nn=100; { максимальное значение n } var   i,n,k,s: integer;   a: array[1..nn] of integer; begin   write('укажите натуральное число n: '); read(n);   randomize;   k: =0; s: =0;   writeln('сформированная последовательность');   for i: =1 to n do begin       a[i]: =random(99)+1; { случайное число на интервале [1; 99] }       write(a[i]: 3);       if (a[i] mod 5=0) and (a[i] mod 7 < > 0) then           begin inc(k); s: =s+a[i] end;   end;   writeln;   writeln('количество чисел, кратных пяти: ',k);   writeln('их сумма равна ',s) end. тестовое решение: укажите натуральное число n: 39 сформированная последовательность   15 83 69 64 56 50 13 70 55 40 22 82 45 67 31 36 16 52 67 44 63 23 52 62 89 33 40 32 17 14 98 15  5 58 46 68 57 72 90 количество чисел, кратных пяти: 9 их сумма равна 355

program w7w7;

var a: real;

begin

readln (a);

if a< 0 then writeln ('otritsatelnoe chislo');

if a> 0 then  writeln ('pologitelnoe chislo');

end.