giúp tớ hai câu aaaaaaaaaaaa

Câu 18:

Uses crt;
Var n,i: longint;
A: Array[1..100000] of longint;
begin
clrscr;
Write('Nhap so phan tu trong mang: '); Readln(n);
i:=1;
While i<=n do
begin
Write('Nhap phan tu thu A[',i,']= ');
Readln(A[i]);
inc(i);
end;
Readln;
End.

Câu 19:

Uses crt;
Var n,i: longint; A: real;
Begin
clrscr;
Write('Nhap so n: '); Readln(n);
For i:=1 to n do
A:=A+1/(i*(i+2));
Write('Tong A la: ',A:0:3);
Readln;
End.

Chúc bạn học tốt!