Question

Программа на Pascal:

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

Помогите пожалуйста !

Answer 1

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.

Answer 2

Премного вам благодарен !