Viết phương trình tính tổng của N số tự nhiên Với N số tự nhiên đầu tiên được nhập vào bàn phím

Program tong;

Uses crt;

Var n, i, s:integer;

Begin

Clrscr;

Write(‘Nhap n:’);

Readln(n);

s:=0;

For i:=1 to n do

s:=s+i;

Writeln(‘Tong cac so tu nhien la:’,s);

Readln;

End.

#XINCTLHN