9 класс !!! Напишите программу, которая в последовательности целых чисел определяет их количество и сумму чётных чисел. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — при знак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести два числа: длину последовательности и сумму чётных чисел.

var a,n,s:integer;beginn:=0; s:=0;readln(a);while a<>0 do begin n:=n+1; if a mod 2=0 then s:=s+a; readln(a); end;writeln('n = ',n,'  s = ',s);end.Пример:528730n = 5 s = 10