Напишите программку, которая в последовательности естественных чисел определяет количество трёхзначных чисел,

Program fghj;
var
a, k, n: integer;
begin
a:=1;
while alt;gt;0 do
begin
writeln(Введите число в спектре (0; 30000):);
readln(a);
if alt;gt;0 then
begin
if (a div 1000=0) and (a mod 4=0) then k:=k+1;
n:=n+1
end;
if n=1000 then
begin
a:=0;
writeln(Количество чисел одинаково 1000, процесс останавливается);
end;
end;
writeln(Количество трехзначных чисел, кратных 4 одинаково: ,k);
readln;
end.

Чтобы выделить посреди вводимых чисел трехзначные, используем операцию выделения целой доли от разделения на 1000 (a div 1000) - такая целая часть должна быть одинакова 0 для трехзначного числа. Числа, кратные 4 обретаем через выделение остатка от дробленья на 4, он тоже обязан быть нулевым при целочисленном делении (a mod 4=0).
При решении используется оператор цикла с предусловием while аlt;gt;0 do..., как только с клавиатуры вводится 0, цикл закончит работу.