Cho dãy a gồm n số nguyên a1 a2 ... an n cho biết a đó có bao nhiêu số chia hết cho 5

Cho dãy A gồm N số nguyên A1，A2 .An hãy cho biết có bao nhiêu số 5 trong dãy A

Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
n，i，d: longint;
Begin
Clrscr;
Write[Nhap n: ]; Readln[n];
d:=0;
For i:=1 to n do
Begin
Write[A[，i，] = ];
Readln[A[i]];
If A[i]=5 then inc[d];
End;

Write[Co ，d， so 5];
Readln
End.

Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
n，i，d: longint;
Begin
Clrscr;
Write[Nhap n: ]; Readln[n];
d:=0;
For i:=1 to n do
Begin
Write[A[，i，] = ];
Readln[A[i]];
If A[i]=5 then inc[d];
End;

Write[Co ，d， so 5];
Readln
End.