Giúp giải bài tin học 8 Viết chương trình nhập vào dãy số nguyên n và xuất ra dãy số đó nhập từ bàn phím

program ct;

uses crt;

var i,n:integer;

A:array[1..100] of integer;

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

writeln('day so vua nhap la:');

for i:=1 to n do

write(A[i]:4);

readln

end.

program oken;
uses crt;
var a: array [1..100] of integer;
    i,n: integer;
begin
    clrscr;
    write('Nhap so phan tu cua mang: '); readln(n);
    for i:=1 to n do
        begin
            write('a[',i,']: ');
            readln(a[i]);
        end;
    write('Mang vua nhap: ');
    for i:=1 to n do
        write(a[i],' ');
    readln;
end.