Дан массив p[12],заполненный с клавиатуры. все элементы кратные 3 и удовлетворяющие условию, -10≤p[i]≤15 заменить на нуль.

Program asd; const n=12;
Var k,i:integer; p:array[1..n] of integer;
Begin k:=0;
For i:=1to n do
read (p[i]);
For i:=1 to n do begin
If (p[i] mod 3=0) and (p[i]>=-10) and (p[i]<=15) then p[i]:=0;
write(p[i]);end;
End.