Найти сумму чисел, кратных 3 от 1 до 100.
ПРОГРАММА ПАСКАЛЬ ABC.

Var
  n,s:integer;
begin
  n:=3; s:=0;
  while nlt;=100 do begin
    s:=s+n;
    n:=n+3
    end;
  Writeln(S=,s)
end.

Результат
S=1683

Первое число, кратное 3 - это само число 3. А дальше просто по 3 прибавляем...

Begin
sum=0;
for i:=1 to 100 do
begin
if i mod 3=0 then
sum:=sum+i;
end;
end.