(28 . 6)(28 . 7)426 Put(I);427 New_Line;428 Put(A(I));429 New_Line;430 I := I + 1;431 if I > 10 then432 exit;