Var  

  i, k: integer;

Begin
k:=0;

 writeln('Числа кратные 4:');  

 for i:=1 to 100 do

   if i mod 4 = 0 then

     begin

       k:=k+1;

       write(i:4);

     end;

 writeln;

 writeln('Всего чисел: ',k);    

End.