Программа на pascal: вводятся целые числа. признак конца - ввод числа 0. определить, сколько двузначных четных чисел, оканчивающихся на 2, расположено между 2-ым и 5-ым числами !

Var
   A,B,i:integer;
   k:byte;
Begin
i:=0;
k:=0;
Repeat
Read(A);
i:=i+1;
if (i>2)and(i<5) then
   Begin
   B:=Abs(A);
   if (9<B)and(B<100)and(B mod 10 = 2) then k:=k+1;
   End;
Until (A = 0)or(i>=5);
if A<>0 then
   Repeat
   Read(A);
   Until A = 0;
WriteLn(k)
End.