Прошу проверить теснее написанную задачу.Напишите программу, которая в

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

var a,b:integer;
begin
readln(a);
b:=0;
while (alt;gt;0) do
begin
if(agt;100) and (alt;1000) and (a div 4=0) then
b:=b+a;
readln(a);
end;
writeln(b);
end.