CДАВАТЬ УЖЕ СЕГОДНЯ,Пожалуйста посчитайте!!!Найти сумму чисел, кратных 3 из диапазона от 1 до n. Тема Цикл. Через While! Напишите решение полностью! Заранее спасибо)

program FlexVeka;

var i,s,n,m:integer;

begin

readln(n);

i:=0; s:=0; m:=0;

while i<n do begin

s:=s+1;

if s mod 3=0 then

m:=m+s;

i:=i+1;

end;

writeln ('Сумма чисел кратных 3=',m);

end.