Как перевести эту программу в While и в Repeat?

[Gidus]

Program Sanya5;
Var a,b,c: integer;
Begin
c:=0+1;
for b:= 1 to 11
do
begin
readln (a);
if (a>0) and ((a mod 2)=0) then
c:=c+1;
end;
writeln ('Четных чисел - ',c);
end.

[JIeIIIa]

Если еще актуально, пишите: stealth(собака)bigmir.net
Сразу указывайте на когда нужна работа и предполагаемый бюджет.

[hidforce]

illusion_of_exist@mail.ru