Ввести массив . определить количество элементов кратных 3.​

program massiv;

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

i,k: integer;

begin

writeln('введите числа массива');

for i: =1 to 5 do

begin

write('a[',i,']=');

readln(a[i]);

end;

for i: =1 to 5 do

begin

if a[i] div 3< > 0 then

k: =k+1;

end;

writeln('колличество чисел кратных 3 =',k);

end.

// pascalabc.net 3.3 // cборка 1590 от 03.12.2017begin   var a: =readreal('введите зарплату в первый месяц-> ');   var z: =0.00;   for var i: =1 to 12 do     begin     writeln('доход за ',i,' месяц составил ',a: 0: 2,'р.');     z+=a;     a: =a+a*0.1;     end;   writeln('зарплата за год: ',z: 0: 2,'р.');     end. пример: введите зарплату в первый месяц-> 100 доход за 1 месяц составил 100.00 р. доход за 2 месяц составил 110.00 р. доход за 3 месяц составил 121.00 р. доход за 4 месяц составил 133.10 р. доход за 5 месяц составил 146.41 р. доход за 6 месяц составил 161.05 р. доход за 7 месяц составил 177.16 р. доход за 8 месяц составил 194.87 р. доход за 9 месяц составил 214.36 р. доход за 10 месяц составил 235.79 р. доход за 11 месяц составил 259.37 р. доход за 12 месяц составил 285.31 р. зарплата за год: 2138.43 р p.s сделал как понял.

// pascalabc.net 3.3 // cборка 1590 от 03.12.2017 begin   var a: =arrrandom(100,-20,20); a.println;   if a[: 50].average> a[50: ].average    then println('температура выше в первой половине')   else println('температура выше во второй половине');   var max: =a.min;   for var i: =0 to 98 do     if (a[i]> max) and (a[i+1]=a[i]) then max: =a[i];   println(max,max); end. пример: -17 14 7 16 13 -19 13 -12 -16 -3 6 19 -10 -18 -2 -9 -8 -17 7 14 3 3 -12 -17 0 6 -11 7 9 17 -20 -15 4 -11 -13 19 -12 5 4 16 -18 -1 -5 -18 -9 -9 10 -14 11 10 -18 18 8 19 5 1 6 3 -5 -14 13 -15 0 -12 -4 1 -6 -19 15 -1 -18 8 0 11 12 -16 -13 -15 13 -12 17 -18 17 19 14 -17 -3 6 4 7 -7 5 -11 -2 -17 18 20 -13 6 10 температура выше во второй половине  3 3