Среди чисел от a до b найти сумму четных и и количество кратных 5. Желательно сотавить блок-схему и программу

Программа для решения задачи:

var a, b, sum, k, i:integer;

begin

write ('Введите a=') ; readln (a) ;

write ('Введите b=') ; readln (b) ;

sum:=0; k:=0;

for i:=a to b do

begin

/ / если число делится на 2 без остатка, то добавляем его к сумме

if i mod 2 = 0 then sum:=sum+i;

/ / если число делится на 5 без остатка, то увеличиваем количество на 1

if i mod 5 = 0 then k:=k+1;

end;

/ / выводим результат

writeln ('sum=', sum) ;

writeln ('k=', k) ;

end.