На­пи­ши­те программу, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел опре­де­ля­ет ко­ли­че­ство трёхзначных чисел, крат­ных 4. Про­грам­ма по­лу­ча­ет на вход на­ту­раль­ные числа, ко­ли­че­ство введённых чисел неизвестно, по­сле­до­ва­тель­ность чисел за­кан­чи­ва­ет­ся чис­лом 0 (0 — при­знак окон­ча­ния ввода, не вхо­дит в последовательность). Количество чисел не пре­вы­ша­ет 1000. Введённые числа не пре­вы­ша­ют 30 000. Про­грам­ма долж­на вы­ве­сти одно число: ко­ли­че­ство трёхзначных чисел, крат­ных 4. (while, repeat).

program ryazantsev;var n,k:integer;begink:=0;readln(n);while n <> 0 do beginif (n>=100) and (n<=999) and (n mod 4 = 0) then k:=k+1;readln(n);end;writeln(k)end.