uses crt; var S,i:integer; begin clrscr; S:=0; i:=0; while S<1000 do begin i:=i+1; if S<1000 then S:=S+i; if S>=1000 then begin s:=s-i; break; end; end; write('S=',S); readln end.
uses crt; var S,i:integer; begin clrscr; S:=0; i:=0; while S<1000 do begin i:=i+1; if S<1000 then S:=S+i; if S>=1000 then begin s:=s-i; break; end; write(('Tong n nho nhat va loi hon 1000 la: ',S); readln; end.
