Дана последовательность из N естественных чисел. Найти сумму чисел этой

Program z1;

var
  N, S, k, a: integer;

begin
  Write('Введите N:');
  readln(N);
  S := 0;
  k := 1;
  while k lt;= N do
  begin
    write('Введите a',k,': ');
    readln(a);
    if a mod 10 = 5 then S := S + a;
    k := k + 1;
  end;
  writeln('Сумма чисел, оканчивающихся на 5 = ', S);
end.