Составье програму вычесления суммы всех трехзначных чисел ,кратных 17???

Вопрос от посетителя:

Составье програму вычесления суммы всех трехзначных чисел ,кратных 17???

Илюха отвечает:

var I,s:integer;

begin

writeln(‘Summa ….’);

for i:=100 to 999 do

if i mod 17 =0 then s:=s+i else s:=s+0;

writeln(s)

end.