program tingtong;
uses crt;
var i , n , s : integer;
begin
clrscr ;
Write ( N số tự nhiên đầu là : ) ; readln( n )
s = 0 ; i = 1
while i<=n do begin
s:s+1; i=i+1
end
writeln ( tong cac so la s )
readln
end
Chúc bạn học tốt , nếu mình làm sai thì bạn hãy bảo mình chứ đừng báo vi phạm mình nha ! Cảm ơn nhiều😋😋😋😋😋