viết chương trình tính tổng 1+2+3+…+n

uses crt;
var n,i,s: integer;
begin
clrscr;
write (‘nhap n: ‘);  readln (n);
for i:=1 to n do
s:=s+i;
writeln (‘tong la: ‘,s);
readln;
end.