отыскать сумму целых чисел от 1 до n кратных сразу 3

6=23, потому если число кратно 6, то оно кратно и 3.
Целые числа, начиная от 1 - это натуральные числа. 1-ое естественное число, кратное 6, это 6. Следующее естественное число, кратное 6, будет на 6 больше и т.д., т.е. появляется ряд 6,12,18, 24, ...

var
  i,n,s:integer;
begin
  Write('n='); Read(n);
  s:=0; i:=6;
  repeat
    s:=s+i;
    i:=i+6;
  until igt;n;
  Writeln('S=',s)
end.

Пример
n=100
S=816