Составить программу, вычисляющую сумму чисел от 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.