среди чисел от 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.