На языке Паскаля

вводятся элементы найти сумму чисел которые делятся на 4 и оканчиваются на 4

Var a:array[1 ... 100] of integer;

i, k, sum, n:integer;

begin

writeln ('Введите количество элементов массива') ;

read (n) ;

k:=0;

sum:=0;

writeln ('Введите элементы массива') ;

for i:=1 to n do begin

read (a[i]) ;

if (a[i] mod 4 = 0) and (a[i] mod 10 = 4) then begin

k:=k+1;

sum:=sum+a[i];

end;

end;

writeln ('Количество элементов = ', k,' Сумма элементов = ', sum) ;

end.