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

program zz1;

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

begin

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

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

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); / / выводим третий ответ

end.