write program5