var

 n, count, i: integer;

begin

 count := 0;

 write('Введите трехзначное число n: ');

 readln(n);

 if ((n < 100) or (n > 999)) then

   writeln(' Число не трехзначное!')

 else

 begin

   begin

     for i := 100 to n do

       if i mod 4 = 0 then count := count + 1;

   end;

   writeln(' Количество трехзначных чисел кратных четырем = ', count);

 end;

end.