Написати програму на турбо паскаль,для обчислення суми чисел кратних трьом,які не більше 100.

Var s,i:integer;
begin
for i:=3 to 100 do
  if i mod 3=0 then s:=s+i;
write('Сумма: ',s);
readln
end.