help me, please Bài 1: Viết chương trình: - Nhập một dãy số nguyên có n phần tử - Xuất ra màn hình dãy số vừa nhập -in ra màn hình các số có giá trị bằng 15(ko bt đề đúng ko)

uses crt;
var A:array[1..1000] of integer;
    i,n:integer;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   for i:=1 to n do
   begin
      write('Nhap phan tu thu ',i,': '); 
      readln(A[i]);
   end;
   for i:=1 to n do write(A[i]:4);
   readln
end.

Yêu cầu cuối cùng nhờ em kiểm tra lại xem đúng đề chưa nhé.

Program Hotboy;

Uses crt;

Var i,n:integer;

S:longint;

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

Begin

clrscr;

S:=0;

 Write('nhap n nguyen duong tu ban phim ');

 Readln(n);

 For i:=1 to n do

Begin

    Write(' A[',i,']');readln(A[i]);

End;

Write('day so do la');

For i:=1 to n do

Write(A[i],' ');

For i:=1 to n do

If A[i] =15 then inc(s);

Write('co' ,s,' so bang 15');

Readln

End.