Ввести с клавиатуры 10 разных чисел отыскать сумму четных количество=1 среднее

program zz1;

var  n, k, i, s1, s:integer; // задаем переменные целого типа

begin

i:=1;    // задаем изначальное значение параметра цикла

while i lt;= 10 do   // организуем цикл пока параметр цикла не достигнет 10

begin

read(n); // вводим число

if n mod 2 = 0 then s:= s + n;

if n = 1 then k:= k + 1;

s1:=s1 + n;

i:=i + 1; // увеличиваем параметр цикла

end;

writeln ( сумма четных = , s);  // выводим один ответ

writeln ( количество одинаковых единице = , k);  // выводим иной ответ

writeln ( среднее арифметическое = , s1/10);  // выводим 3-ий ответ

end.