что будет на экране после исполнения следующего куска программки, если массив

Что будет на экране после исполненья следующего куска программки, если массив содержит последующие значения (15,3,4,7,12):
K:=0
For I:=1 to 5 do
If (a[i] mid 2)lt;gt;0 then begin k:=k+1; b[k]:=a[i]; end;
For I:= 1 to k do
Write (b[i],'')