Дан набор ненулевых чисел ,признак его завершения число 0 .вывести сумму всех положительных четных чисел из данного набора. если требуемые числа отсутсвуют вывести то вывести 0

Var a,s:integer;
begin
a:=-1;
while (a<>0) do begin
read(a);
if a>0 then s+=a;
end;
writeln(s);
end.