Написать программу на языке Pascal вычисления суммы чисел кратных 3-ём в диапазоне от 1 до 100. Помогите!

А зачем результат, если нужно само вычисление и нужно самим вводить цифры с клавиатуры?

По условию задачи ничего вводить не нужно.

var i,s:integer;begins:=0;for i:=1 to 100 do if i mod 3 = 0 then s:=s+i;writeln('s = ',s);end.Результат:s = 1683