uses crt; var i,s:longint; begin clrscr; s:=0; i:=0; while i<100 Do begin inc(i); s:=s+i; end; writeln('Tong cua 100 so nguyen dau tien: ',s); readln end.
* Dùng Repeat:
uses crt; var i,s:longint; begin clrscr; s:=0; i:=0; repeat inc(i); s:=s+i; until i=100; writeln('Tong cua 100 so nguyen dau tien: ',s); readln end.
