Найти сумму чисел от 100 до 200 кратных 17. нужно типа таблицв, начало ввод операция и т.д.

Var k,sum:integer;begink :=100;while(k < 201) dobeginif (k mod 17) = 0 then beginwriteln(k);sum:= sum +k;end;k:= k + 1;end;writeln('sum =', sum);end.{102119136153170187sum =867}