dùng câu lệnh lặp while do viết chương trình tính tổng các số từ 1 đến N ( N là số nguyên dương nhập từ bàn phím)

Program FNG;
Uses crt;
Var n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0; i:=1;
        While i<=n do
        Begin
                s:=s+i;
                inc(i);
        End;
        Write('S = ',s);
        Readln
End.

Program tinhoc;
Uses crt;
Var n,i,s: longint;
Begin Clrscr;
    Write('Nhap n: '); Readln(n);
        s:=0; i:=1;
     While i<=n do
        Begin
             s:=s+i; inc(i);
        End;
     Write('S = ',s);

Readln;
End.

Học tốt!