Отыскать сумму чисел от 1 до N, делящихся на 5 и

Var N,a,i,sum: integer;
begin
//вводим исходные данные
write(Введите число N: ); readln(N);
write(Введите число a: ); readln(a);
//обретаем сумму
sum:=0;
for i:=1 to N do
//проверяем, кратно ли число 5 и меньше ли a
if (i mod 5 = 0) and (ilt;a) then sum:=sum+i;
//вывод
writeln(Сумма всех чисел от 1 до , N, , которые кратны 5 и не превосходят , a, , одинакова , sum);
end.