Среди 20 вводимых чисел выберите все кратные 2 или кратные 5 и подсчитайте их сумму. (В Паскале)

Предыдущий
вопрос Следующий
вопрос

program SumOfMultiples;

var
number, sum: integer;

begin
sum := 0;

for var i := 1 to 20 do
begin
write('Введите число: ');
readln(number);

end;

writeln('Сумма чисел, кратных 2 или 5: ', sum);
end.