Найдите сумму всех чисел от 1 до k кратных 3

А через оператор while?

program HelloWorld;var i,s,k:integer;begin    k:=12;    s:=0;    for i:=1 to k do begin    if(i mod 3=0) then s:=s+i;    end;    writeln(s);end.