Найти сумму целых чисел от 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