Chương trình 19

VAR S, n: INTEGER;
BEGIN
S:=0; n:=1;
WHILE S<=1000 DO
BEGIN S:= S + n; n:= n+1 END;
writeln('So n nho nhat de tong > 1000 la ',n);
writeln('Tong dau tien > 1000 la ', S);
readln
END.

Download: http://www.mediafire.com/?5ej9n24eozanntm