Пользователь вводит с клавиатуры целые положительные числа, разделяемые нажатием клавиши . Признаком конца последовательности является число 0. Напишите программу, которая выводит на экран сумму и среднее арифметическое чётных чисел(выполнить программу с помощью операторов цикла while и repeat)

Предыдущий
вопрос Следующий
вопрос

С использованием оператора цикла while:

program SumAndAverage;
var
number, sum, count, average: integer;
begin
sum := 0;
count := 0;
writeln('Введите целые положительные числа (для завершения введите 0): ');
readln(number);
while number <> 0 do
begin
if number mod 2 = 0 then
begin
sum := sum + number;
count := count + 1;
end;
readln(number);
end;
if count > 0 then
begin
average := sum div count;
writeln('Сумма чётных чисел: ', sum);
writeln('Среднее арифметическое чётных чисел: ', average);
end
else
writeln('Чётные числа не были введены');
end.

С использованием оператора цикла repeat:

program SumAndAverage;
var
number, sum, count, average: integer;
begin
sum := 0;
count := 0;
writeln('Введите целые положительные числа (для завершения введите 0): ');
repeat
readln(number);
if number mod 2 = 0 then
begin
sum := sum + number;
count := count + 1;
end;
until number = 0;
if count > 0 then
begin
average := sum div count;
writeln('Сумма чётных чисел: ', sum);
writeln('Среднее арифметическое чётных чисел: ', average);
end
else
writeln('Чётные числа не были введены');
end.