составить програму вычисления значения суммы чисел кратных 6 от 13 до k используя цикл

summ := 0;

for i:=13 to k do

       if i mod 6 = 0 then summ:= summ + i;

write(summ);