1.
program ctpt;
uses crt;
var n, S, i: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
for i:=1 to n do S:=S+i;
write('S = ', S);
readln
end.
2.
In: Dãy A.
Out: Max.
MT:
B1: Max ← a1; i ← 1.
B2: Nếu Max < `a_i` thì Max ← `a_i`
B3: i ← i + 1.
B4: Nếu i > n thì thông báo Max và KTTT ngược lại quay lại bước 2.