Помогите!Необходимо нарисовать блок схему и написать программу на языке Турбопаскаль( ТП)Задачка

Блок-схема - в прилагаемом файле.
Программка:
program p3;
var a,b,s,k,i:integer; // описание переменных
begin
a:=500; b:=900;  // задание значений переменным a и b
s:=0; k:=0;   // задание исходных значений s и k
for i:=a to b do // цикл с параметром i, который изменяется от a до b
 if (i mod 3=0)and(i mod 5=0) then // если остаток от разделения i на 3=0 и
                                                       // остаток от разделенья на 5 =0, то 
  begin s:=s+i; k:=k+1; end; // прибавляем отысканное число к сумме (s) и 
                                            // увеличиваем на 1 количество найденных чисел
writeln('Разыскиваемое среднее арифметическое = ',s/k:5:1); // вывод на экран
readln;
end.

Результат:
Искомое среднее арифметическое = 705.0