1.

uses crt;
var n,i,s:integer;
begin
        clrscr;
        write('Nhap n: '); readln(n);
        s:=0;
        i:=1;
                while i<=n do
                        begin
                                s:=s+i;
                                i:=i+1;
                        end;
        write('Tong cac so tu nhien tu 1 den n: ',s);
        readln
end.

2. uses crt;
Var A:array[1..100] of integer;
 n,i:integer;
Begin
        clrscr;
        write('Nhap so tu nhien n: '); readln(n);
        for i:=1 to n do
        begin
        write('A[',i,']=');
        readln(A[i]);
        end;
        for i:=1 to n do
        write(A[i],',');
        readln;
End.