Напишите программу, которая в последовательности целых чисел определяет из колличество и сумму четных чисел. программа получает на ход целые числа, колличество введенных чисел неизвестно послкдовательность чисел заканчивается числом 0 признак окончания ввода не взолит в последовательность. колличество чисел не привышает 1000. введеные числа по модулю не привышают 30000. программа должна вывести два числа длину последовательности и сумму четных чисел.
введные данные выходные
4 3
60 64
15
0
program kol_sum_chet;
var
x,k,s:integer;
begin
k:=0;
s:=0;
repeat
read(x);
if x mod 2=0
then
begin
s:=s+x;
inc(k);
end;
until x=0;
write(k,' ',s)
end.