Паскаль ГИА

[Иван Грозный]

Нужна срочно ваша помощь,иначе учитель поставить незачет(а я не понимаю ничего в этом предмете).

Заранее спасибо!!!

[Mad_Cat]

var a,count:integer;
begin
count:=0;
repeat
readln(a);
if (a>0) and (a mod 7=0) and (a mod 2=1)
then inc(count);
until a=0;
writeln(count);
end.