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