напишите программу которая вводит последовательность целых чисел, заканчивающуюся нулем, и определяет кол-во четных положительных чисел в этой последовательности(паскаль). Срочно! Пожалуйста!!!!!!!!1

var a,k:integer;beginwriteln('Вводите числа, конец ввода - 0');readln(a);k:=0;while a<>0 do begin if (a>0)and(a mod 2=0) then k:=k+1; readln(a); end;writeln('k = ',k);end.Пример:Вводите числа, конец ввода - 024-1547-2080-34620k = 3