Определить количество чисел кратных 5 в последовательности от 10 до 50.
Нужно в паскале написать. Хэлпп!

var    i, k: integer;begin    for i := 10 to 50 do        if i mod 5 = 0 then            k := k + 1;    writeln(k);end.

прога в приложении================