Tính tổng n số tự nhiên đầu tiên với n nhập từ bàn phím

----- Nội dung dịch tự động từ ảnh -----
Bài 1: Tính tổng n số tự nhiên đầu tiên với n nhập từ bàn phím
Sử dụng while...do;
Sử dụng For...to...do;
Program tinh_tong;
uses crt;
var i,n: integer;
s: longint;
begin
Program tinh_tong;
uses crt;
var i,n: integer;
s: longint;
begin
clrscr;
write('Nhap n='); readln(n);<br />s:=0;<br />For i:=1 to n do s:=s+i;<br />clrscr;<br />write('Nhap n='); readln(n);<br />s:=0;<br />i:=1;<br />while i<=n do begin s:=s+i; i:=i+1 end;<br />writeln('Tong cua', n , 'so tu nhien dau tien s = ', s);
readln;
end.
writeln('Tong cua', n , 'so tu nhien dau tien s = ', s);
readln;
end.