本程序设计界面如下图所示：
procedure TForm1.Button1Click(Sender: TObject); //“计算”按钮
var
i , n, sum : integer ;
begin
sum := 0 ;
i := 1 ;
n := StrToInt(edit1. text ); //读入
while i <= n do //循环语句
begin
if i mod 3 =0 then sum := sum+i;
i := i +1 ;
end;
edit2.Text :=IntToStr(sum ); //将结果在编辑框中显示
end;
用户在edit1中输入一个正整数7，则在edit2中显示计算结果为：
A、7
B、8
C、9
D、0

---