Напишите программу, которая считывает с клавиатуры n чисел и затем выводит на экран сумму и среднее арифметическое положительных чисел. в паскаль

uses crt;

var

n: integer; {Количество чисел}

a: array [1 ... 50] of integer; {Массив чисел}

i: integer; {Переменная для прохода по массиву}

j: integer; {Переменная для прохода по массиву}

sum: integer; {Сумма}

sr: integer; {Среднее арифметическое}

tmp: integer; {Промежуточная переменная}

begin

sum : = 0;

sr : = 0;

writeln ('Введите размер массива');

readln (n);

{Цикл ввода массива}

for i : = 1 to n do

begin

writeln ('Введите ' + i,' число');

readln (tmp);

if tmp > 0 then

begin

a[i] : = tmp;

end

end;

{Цикл подсчета суммы и среднего арифметического}

for j : = 1 to n do

begin

sum : = sum + a[j];

sr : = sum div n;

end;

writeln ('Сумма чисел: ' + sum);

writeln ('Среднее арифметическое ' + sr);

end.