Viết chương trình thực hiện tính tổng của số N, cho đến khi N bàng 0 thì kết thúc

Program Tinh_tong;

Uses crt;

Var n,s: integer;

Begin

       clrscr;

Write (‘nhap n: ‘);  readln (n);

                              while n>0 then

                                                      begin

                                                               s:=s+n;

                                                               n:=n-1;

                                                               end;

writeln (‘tong la: ‘,s);

readln;

end.