mô tả thuật toán và viết chương trình nhập vào mảng a gồm tối đa 20 phân tử nguyên. giải giúp mk vs mk đag cần gâp

Thuật toán:

Input: Số n, mảng arr chứa tối đa 20 phần tử

Output: Mảng chứa các số nguyên do người dùng nhập vào

Bước 1: Nhập số n là số lượng phần tử.

Bước 2: i<- 1

Bước 3: Nếu i>n, chuyển sang bước 5.

Bước 4: Kêu người dùng nhập lần lượt giá trị vào arr[i], tăng i lên 1, quay lại bước 3.

Bước 5: Kết thúc thuật toán

Chương trình: (Pascal)

var arr: array[1..20] of longint; i,n: longint;
begin
    write(‘Nhap so luong phan tu: ‘);
    readln(n);
    for i:=1 to n do
    begin
        write(‘Nhap gia tri cho phan tu thu ‘,i,’: ‘);
        readln(arr[i]);
    end;
    readln;
end.