PASCAL С клавиатуры вводится 30 чисел .Сколько среди них нулей .Найти среднее арифметическое из суммы чисел кратных 5-ти.

Большое тебе спасибо

var a,k1,s,k2,i:integer;begink1:=0; s:=0; k2:=0;writeln('Введите 30 чисел:');for i:=1 to 30 do begin readln(a); if a=0 then k1:=k1+1; if a mod 5 = 0 then begin s:=s+a; k2:=k2+1; end; end;writeln('k1 = ',k1);if k2<>0  then writeln(s/k2) else writeln('Нет чисел, кратных 5');end.Пример (для 10 чисел):Введите 30 чисел:126508120047153219k1 = 220

var mas: array[1..30] of integer;n:Integer;sum:Integer;k, null:Integer;begin  for var i:=1 to 30 do     Readln(mas[i]);       for var i:=1 to 30 do   begin     if (mas[i] mod 5 = 0) then       begin          sum:=sum+mas[i];         k:=k+1;       end;     if (mas[i] = 0) then null:=null+1;   end;   Writeln(null);   Writeln(sum div k);end.