Найдите значение выражения:Y=3+6+…+96+99 — Pascal(Паскаль)

uses crt;
var y,x:integer;
begin
clrscr;
y:=0;
x:=3;
while x<=99 do
 begin
  y:=y+x;
  x:=x+3;
 end;
write('y=',y);
readln
end.