program Iza_dang_cap;
uses crt;
var n,i: integer;
A:array[1..100] of integer;
begin
clrscr;
writeln('nhap cac phan tu cua day');
for i:=1 to n do write(A[i]);
writeln('cac phan tu cua day so la: ' )
for i:=1 to n do write(A[i],' ');
readln
end.
p/s : bn nhập chương trình zô pascal xem cóa sai j ko nhá~~