Пользователь вводит с клавиатуры целые положительные числа, разделяемые нажатием клавиши . признаком конца последовательности является число 0. напишите программу, которая выводит на экран сумму и среднее арифметическое чётных чисел(выполнить программу с операторов цикла while и repeat)
begin N:= 1; count:= 1; while not(N = 0) do begin read(N); if N mod 2 = 0 then begin sum:= sum + N; count:=count + 1; end; end; writeln('sum = ',sum); writeln('sr. arefm. = ',sum/count);end.