Dựa vào bài bài 10 – Cấu Trúc Lặp *) Bài toán : Lập trình tính S=1+2+3+…+N ( với N € Z, nhập từ bàn phím ) #giúp mình với,mình đang cần gấp, vote 5

Program NN;
Uses crt;
Var n,i,s: longint;
Begin
        Clrscr;
        Write(‘Nhap n: ‘); Readln(n);
        s:=0;
        For i:=1 to n do s:=s+i;
        Write(‘S = ‘,s);
        Readln
End.