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

Program ex;uses crt;var N, count, sum: integer; 
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.