Пользователь вводит с клавиатуры целые положительные числа, разделяемые нажатием клавиши . Признаком конца последовательности является число 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.