帮个忙啊

label 与goto语句连用
goto 是控制转移语句

如  
label 10;
var i,sum:integer;
begin
  i:=1;
10:  sum:=sum+i;       {这里的"10："是转移标志}
  if i<=10 then goto 10;{当i<=10,就从"10："后的语句开始执行}
end.
这个程序的功能就是求1到10  10个连续自然数的和

和
for i:=1 to 10 do sum:=sum+1;
的功能一样，但用goto语句写，可读性明显差了很多而且逻辑复杂,结构性差。
pascal的控制结构完全可以避免使用goto.

double是双精度实数型
范围是5.0E-324~~~1.7E+308  
有效位数是15到16位
字节数是8

在2楼搞错了，那个goto 的程序应该是
label 10;
var i,sum:integer;
begin
  i:=1;
10:  sum:=sum+i;       {这里的"10："是转移标志}
  i:=i+1;{刚才少了这句，成死循环了}
  if i<=10 then goto 10;{当i<=10,就从"10："后的语句开始执行}
end.

要说明double的变量就要先启动编译命令{$n+}