Uses crt; Var i,n:integer;t:longint; BEGIN clrscr; write('Nhap n: ');readln(n); For i:=1 to n do t:=t+i; Writeln('Tong cac so tu 1 den ',n,' la: ',t); Readln End.
uses crt; var n,i,s:longint; begin clrscr; write('Nhap n: '); readln(n); for i:=1 to n do inc(s,i); writeln('Tong cac so tu 1 den ',n,': ',s); readln; end.
