Помогите пожалуйста! Составить программу для нахождения количества и суммы всех чисел,...

Program aaa;
var
i,z,sum:integer;
begin
sum:=0; //сумма чисел
z:=0; //счётчик
for i:=1 to 100 do
if(i mod 10 = 4) then begin //проверка последней цифры, если 4,то прибавляем к счётчику единицу и к сумме число
z:=z+1;
sum:=sum+i;
end;
writeln(z,' ',sum); //Выводим ответ
end.