(Паскаль) Отыскать количество чисел, кратных 4, в спектре от A до

// разделите на две программки либо закомментируйте негодную часть

//-----------------------------

program LoopWhile;

begin

 var (a, b) := ReadInteger2();

 var Count := 0;

 while a lt;= b do

 begin

   if a mod 4 = 0 then

     Count += 1;

   a += 1

 end;

 Write(Count);

end.

//-----------------------------

program LoopRepeat;

begin

 var (a, b) := ReadInteger2();

 var Count := 0;

 repeat

   if a mod 4 = 0 then

     Count += 1;

   a += 1

 until a gt; b;

 Write(Count);

end.