составить программу вычисления суммы четных чисел от 1 до n. найдите среднее арифметическое этих чисел

program help;var a,n,x,summa:integer;beginx:=0;a:=1;summa:=0;readln (n);while a<=n do beginif a mod 2 =0 thensumma:=summa+a;if a mod 2 =0 thenx:=x+1;a:=a+1;end;summa:=summa div x; writeln (summa);end.