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