pascal编程血拼赛

var
i,x,s:int64;
begin
for i:=1 to 999 do begin
read(i);
inc(s,i);
end;
end.

若需要把999加入总和的话
程序如下
program work;
var
n,total:longint;

begin
total:=0;
repeat
read(n);
total:=total+n;
until n=999;
writeln(total);
end.
若不加入
则为
program work;
var
n,total:longint;

begin
total:=0;
read(n);
while n<>999 do
begin
total:=total+n;
read(n);
end;
writeln(total);
end.

var
x,s:integer;
begin
s:=0;
read(x);
if x=999 then break;
while true do
begin
s:=s+x;
read(x);
if x=999 then break;
end;
end.

vae
x,s:integer;
begin
s:=0;
read(x);
while x<>999 do
begin
s:=s+x