Что производит следующий фрагмент программы? for i:=1 to n do begin write\('a⟨0⟩= '\); readln\(a⟨1⟩\); end;