Помогите,пожалуйста,по информатике очень надо.Напишите программу. знайти середнє арифметичне перших 15 натуральних чисел с помощью while

program summa;var a, b: integer;beginb:=0;while (a<=15) do beginb:=a+b;a:=a+1;end;writeln('среднее арифметическое => ',b/15);end.