Паскаль. ввести n целых чисел.найти сумму чисел кратных 5 и не кратных 3.

Program z20;  Var  n, sum, i:integer; a: array [1..1000] of integer;Begin  write('Введите кол-во чисел = '); readln(n);  for i:=1 to n do  begin    write('Число [', i, '] = '); readln(a[i]);  end;    sum:= 0;  for i:=1 to n do    if (a[i] mod 5 = 0) and (a[i] mod 3 <> 0) then sum:= sum + a[i];   writeln('Сумма чисел = ', sum);End.