1)знайти відстань між двома точками площини 2)обчислити середнє арифметичне трьох чисел очень нужно по информатике

:program summa;

var a, b: integer;

begin

b:=0;

while (a<=15) do begin

b:=a+b;

a:=a+1;

end;

writeln('среднее арифметическое => ',b/15);

end.