Viết chương trình nhập từ bàn phím mảng B gồm N phần tử là các số nguyên.Đưa mảng B ra màn hình( N<=20 )

Program BTH;
uses crt;
var b:array[1..20] of longint;
i:byte;
Begin
        clrscr;
        Write('Nhap n: ');readln(n);
        For i:=1 to n do
                Begin
                Write('Nhap so thu ',i,' : ');readln(b[i]);
                end;
        For i:=1 to n do
        Writeln('So thu ',i,' trong mang B la: ',b[i]);
        readln;
End.

Program FNG;
Uses crt;
Var B: array[1..20] of longint;
    n,i: 1..20;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('B[',i,'] = ');
                Readln(B[i]);
        End;
        Write('Mang B: ');
        For i:=1 to n do Write(B[i],' ');
        Readln
End.