составить блок схему по : найти среднее арифметическое натуральных чисел от 1 до n кратных 5 (не массив)

Могу от 1 до 10
program vtkbox479;    Название программы
var i,s:integer;            Объявление переменных
begin                         Начало программы
for i:=1 to 10 do          Цикл от 1 до 10
s:=s+i;                       Сумме присваиваем значение сумма + число i
writeln(s/i);                  Выводим сумма деленная на число i
end.                            Конец программы

П.с. расписал, с тебя лучший ответ.