Помогите, пожалуйста. Написать программу…

var sum, n, i: integer; begin writeln ('Введите кол-во чисел: '); readln (n); writeln ('Числа: '); sum: =1; while i <> n do begin write (sum, '); sum: =sum*2; inc (i); end; writeln; writeln ('Среднее арифметическое: ', sum / n); end.