Среди чисел от 100 до 1000 найти сумму тех чисел которые заканчиваются на цифру 4

Var
    i, s: integer;

begin
    s := 0;
    for i := 100 to 1000 do
        if i mod 10 = 4 then
            s := s + i;
    writeln(s);
end.