Найти сумму целых чисел от 1 до n кратных одновременно 3 и 6 постусловным циклом написатт программу на паскале

6=2×3, поэтому если число кратно 6, то оно кратно и 3.
Целые числа, начиная от 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 i>n;
  Writeln('S=',s)
end.

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