Câu trả lời:

program a1;

uses crt;

var s,i,n:integer;

begin

    clrscr;

    write('nhap n:'); readln(n);

    s:=0; i:=1;

    while i<=n do

    begin

        s:=s+1;

        i:=i+1;

    end;

    write('tong cua day n:',s);

    readln;

end.