Найти сумму чисел от 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 (i
//вывод

writeln ('Сумма всех чисел от 1 до ', N, ', которые кратны 5 и не превышают ', a, ', равна ', sum);

end.