Вычислить сумму чисел от 1 до 100 которые делятся на 3 написать программу для вычисления(паскаль)

begin

 3.Step(3).TakeWhile(t -> t <= 100).Sum.Println

end.

2 варианта

var s,i: integer;

begin

s:=0;

i:=3;

while (i<100) do

begin

s:=s+i;

inc(i,3);

end;

writeln('Сумма чисел, которые делятся на 3: ',s);

readln;

end.

var s,i: integer;

begin

s:=0;

for i:=1 to 100 do if (i mod 3 = 0) then s:=s+i;

writeln('Сумма чисел, которые делятся на 3: ',s);

readln;

end.

Выбирайте на свой вкус