CÂU1
var i,n: integer;
s:longint;
begin
write('nhap so n=');readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i; i:=i+1;
end;
write('tong cua',n,' so tu nhien dau tien la',s);
readln
end.
CÂU2
program tong;
uses crt;
var n,i: integer;
s: longint;
begin clrscr;
write('Nhap so n: '); readln (n);
s:=0;
for i:=1 to n do
s:=s+i;
write('Tong la: ',s);
readln;
end.
CÂU3
program Tinh_hieu;
var n,i: integer;
S: longint;
begin
write('Nhap so n='); readln(n);
S:=0;
for i:=1 to n do S:=S-i;
writeln('Hieu cua ',n,' so tu nhien dau tien S=', S);
readln
end.
CÂU4
Bước 1: Nhập n và nhập dãy số
Bước 2: tb←0; i←1;
Bước 3: tb←tb+x[i];
Bước 4: i←i+1;
Bước 5: Nếu i<=n thì quay lại bước 3 và bước 4
Bước 6: Xuất tb/n;
Bước 7: Kết thúc