program ho_tro;
uses crt;
var n,i: integer;
s: longint;
begin
clrscr;
writeln(' nhap so n'); readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln(' tong cua' , n, ' so tu nhien dau tien =' , s);
readln
end.
mk bấm nhằm, sửa lại dùm mk là tin học 11 nhé!
bn tự khai báo nha!
begin
clrscr;
s:=0;
write('nhap n:');readln(n);
for i:=1 to n do
s:=s+i;
write('tong s la:',s:4:2);
readln
end.
XONG