Среди чисел от 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.