Составить программу вычисления суммы 3+6+9++33 на паскале

Uses crt;
var a,b,c:integer;
begin
   a:=3;
   c:=3;
   b:=0;
while b<>33 do
begin
a:=a+b;
b:=b+c;
end;
writeln(a);
readln
end.