nhập vào 1 dãy số có độ dài N hãy in ra vị trí các phân tử chẵn

uses crt;
var a:array[1..100]of longint;
n,i:longint;
begin
clrscr;
write('n ');
readln(n);
i:=0;
repeat
begin
i:=i+1;
write('a[',i,']=');
readln(a[i]);
end;
until
i>=n;
for i:=1 to n do
if a[i] mod 2=0 then write (i:2);
readln
end.

program bai_giai;
uses crt;
var a:array[1..1000]of longint;i,n:longint;
begin
clrscr;
write('nhap n:');readln(n);
for i:=1 to n do 
begin
write('a[',i,']=');readln(a[i]);
end;
for i:=1 to n do if(a[i] mod 2=0)then write(i,' ');
readln
end.