Помогите составить программу, вычисляющую сумму чисел от 1 до 256, кратных 13.
Программа на Паскале program xxx; var i,s : integer; begin s:=0; for i:=1 to n do if i mod 13 = 0 then s := s + i; write('сумма чисел кратных 13 =', s) end.